/* * Copyright (c) 2003, The Tendra Project * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice unmodified, this list of conditions, and the following * disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * * Crown Copyright (c) 1997 * * This TenDRA(r) Computer Program is subject to Copyright * owned by the United Kingdom Secretary of State for Defence * acting through the Defence Evaluation and Research Agency * (DERA). It is made available to Recipients with a * royalty-free licence for its use, reproduction, transfer * to other parties and amendment for any purpose not excluding * product development provided that any such use et cetera * shall be deemed to be acceptance of the following conditions:- * * (1) Its Recipients shall ensure that this Notice is * reproduced upon any copies or amended versions of it; * * (2) Any amended version of it shall be clearly marked to * show both the nature of and the organisation responsible * for the relevant amendment or amendments; * * (3) Its onward transfer from a recipient to another * party shall be deemed to be that party's acceptance of * these conditions; * * (4) DERA gives no warranty or assurance as to its * quality or suitability for any purpose and DERA accepts * no liability whatsoever in relation to any use to which * it may be put. * * $TenDRA: tendra/src/producers/common/obj_templ/tdf1.h-tdf,v 1.3 2005/11/03 17:03:44 stefanf Exp $ */ /* * AUTOMATICALLY GENERATED FROM TDF 4.1 * BY make_tdf (VERSION 2.0), DO NOT EDIT */ #define TDF_major 4 #define TDF_minor 1 #define LINK_al_tagdef_props "aldef" #define LINK_dg_comp_props "dgcompunit" #define LINK_diag_type_unit "diagtype" #define LINK_diag_unit "diagdef" #define LINK_linkinfo_props "linkinfo" #define LINK_tagdec_props "tagdec" #define LINK_tagdef_props "tagdef" #define LINK_tokdec_props "tokdec" #define LINK_tokdef_props "tokdef" #define LINK_version_props "versions" #define LINK_tld_props "tld" #define LINK_al_tag "alignment" #define LINK_dg_tag "dgtag" #define LINK_diag_tag "diagtag" #define LINK_tag "tag" #define LINK_token "token" #define LINK_label "label" #define LINK_dg "DG" #define LINK_dg_dim "DG_DIM" #define LINK_dg_filename "DG_FILENAME" #define LINK_dg_idname "DG_IDNAME" #define LINK_dg_name "DG_NAME" #define LINK_dg_type "DG_TYPE" #define LINK_diag_type "diag_type" #define LINK_filename "~diag_file" #define ENS_access(A, B) ENC_BITS (A, 4, B) #define ENX_access(A, B) ENC_EXTN (A, 4, B) #define ENC_access_apply_token(A) ENS_access (A, 1) #define ENC_access_cond(A) ENS_access (A, 2) #define ENC_add_accesses(A) ENS_access (A, 3) #define ENC_constant(A) ENS_access (A, 4) #define ENC_long_jump_access(A) ENS_access (A, 5) #define ENC_no_other_read(A) ENS_access (A, 6) #define ENC_no_other_write(A) ENS_access (A, 7) #define ENC_out_par(A) ENS_access (A, 8) #define ENC_preserve(A) ENS_access (A, 9) #define ENC_register(A) ENS_access (A, 10) #define ENC_standard_access(A) ENS_access (A, 11) #define ENC_used_as_volatile(A) ENS_access (A, 12) #define ENC_visible(A) ENS_access (A, 13) #define ENS_al_tag(A, B) ENC_BITS (A, 1, B) #define ENX_al_tag(A, B) ENC_EXTN (A, 1, B) #define ENC_al_tag_apply_token(A) ENX_al_tag (A, 2) #define ENC_make_al_tag(A, B) { ENS_al_tag (A, 1); ENC_INT (A, B); } #define ENS_al_tagdef(A, B) ENC_BITS (A, 1, B) #define ENX_al_tagdef(A, B) ENC_EXTN (A, 1, B) #define ENC_make_al_tagdef(A) ENS_al_tagdef (A, 1) #define ENS_alignment(A, B) ENC_BITS (A, 4, B) #define ENX_alignment(A, B) ENC_EXTN (A, 4, B) #define ENC_alignment_apply_token(A) ENS_alignment (A, 1) #define ENC_alignment_cond(A) ENS_alignment (A, 2) #define ENC_alignment(A) ENS_alignment (A, 3) #define ENC_alloca_alignment(A) ENS_alignment (A, 4) #define ENC_callees_alignment(A) ENS_alignment (A, 5) #define ENC_callers_alignment(A) ENS_alignment (A, 6) #define ENC_code_alignment(A) ENS_alignment (A, 7) #define ENC_locals_alignment(A) ENS_alignment (A, 8) #define ENC_obtain_al_tag(A) ENS_alignment (A, 9) #define ENC_parameter_alignment(A) ENS_alignment (A, 10) #define ENC_unite_alignments(A) ENS_alignment (A, 11) #define ENC_var_param_alignment(A) ENS_alignment (A, 12) #define ENS_bitfield_variety(A, B) ENC_BITS (A, 2, B) #define ENX_bitfield_variety(A, B) ENC_EXTN (A, 2, B) #define ENC_bfvar_apply_token(A) ENS_bitfield_variety (A, 1) #define ENC_bfvar_cond(A) ENS_bitfield_variety (A, 2) #define ENC_bfvar_bits(A) ENS_bitfield_variety (A, 3) #define ENS_bool(A, B) ENC_BITS (A, 3, B) #define ENX_bool(A, B) ENC_EXTN (A, 3, B) #define ENC_bool_apply_token(A) ENS_bool (A, 1) #define ENC_bool_cond(A) ENS_bool (A, 2) #define ENC_false(A) ENS_bool (A, 3) #define ENC_true(A) ENS_bool (A, 4) #define ENS_callees(A, B) ENC_BITS (A, 2, B) #define ENX_callees(A, B) ENC_EXTN (A, 2, B) #define ENC_make_callee_list(A) ENS_callees (A, 1) #define ENC_make_dynamic_callees(A) ENS_callees (A, 2) #define ENC_same_callees(A) ENS_callees (A, 3) #define ENS_dg(A, B) ENC_BITS (A, 6, B) #define ENX_dg(A, B) ENC_EXTN (A, 6, B) #define ENC_dg_apply_token(A) ENS_dg (A, 1) #define ENC_make_tag_dg(A) ENS_dg (A, 2) #define ENC_abortable_part_dg(A) ENS_dg (A, 3) #define ENC_accept_dg(A) ENS_dg (A, 4) #define ENC_barrier_dg(A) ENS_dg (A, 5) #define ENC_branch_dg(A) ENS_dg (A, 6) #define ENC_call_dg(A) ENS_dg (A, 7) #define ENC_compilation_dg(A) ENS_dg (A, 8) #define ENC_destructor_dg(A) ENS_dg (A, 9) #define ENC_exception_handler_dg(A) ENS_dg (A, 10) #define ENC_exception_scope_dg(A) ENS_dg (A, 11) #define ENC_inline_call_dg(A) ENS_dg (A, 12) #define ENC_inline_result_dg(A) ENS_dg (A, 13) #define ENC_inlined_dg(A) ENS_dg (A, 14) #define ENC_jump_dg(A) ENS_dg (A, 15) #define ENC_label_dg(A) ENS_dg (A, 16) #define ENC_lexical_block_dg(A) ENS_dg (A, 17) #define ENC_list_dg(A) ENS_dg (A, 18) #define ENC_long_jump_dg(A) ENS_dg (A, 19) #define ENC_name_decl_dg(A) ENS_dg (A, 20) #define ENC_params_dg(A) ENS_dg (A, 21) #define ENC_raise_dg(A) ENS_dg (A, 22) #define ENC_requeue_dg(A) ENS_dg (A, 23) #define ENC_rts_call_dg(A) ENS_dg (A, 24) #define ENC_select_dg(A) ENS_dg (A, 25) #define ENC_select_alternative_dg(A) ENS_dg (A, 26) #define ENC_select_guard_dg(A) ENS_dg (A, 27) #define ENC_singlestep_dg(A) ENS_dg (A, 28) #define ENC_source_language_dg(A) ENS_dg (A, 29) #define ENC_sourcepos_dg(A) ENS_dg (A, 30) #define ENC_statement_part_dg(A) ENS_dg (A, 31) #define ENC_test_dg(A) ENS_dg (A, 32) #define ENC_triggering_alternative_dg(A) ENS_dg (A, 33) #define ENC_with_dg(A) ENS_dg (A, 34) #define ENS_dg_accessibility(A, B) ENC_BITS (A, 2, B) #define ENX_dg_accessibility(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_local_accessibility(A) ENS_dg_accessibility (A, 1) #define ENC_dg_private_accessibility(A) ENS_dg_accessibility (A, 2) #define ENC_dg_protected_accessibility(A) ENS_dg_accessibility (A, 3) #define ENC_dg_public_accessibility(A) ENX_dg_accessibility (A, 4) #define ENS_dg_append(A, B) ENC_BITS (A, 1, B) #define ENX_dg_append(A, B) ENC_EXTN (A, 1, B) #define ENC_dg_name_append(A) ENS_dg_append (A, 1) #define ENS_dg_bound(A, B) ENC_BITS (A, 2, B) #define ENX_dg_bound(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_dynamic_bound(A) ENS_dg_bound (A, 1) #define ENC_dg_static_bound(A) ENS_dg_bound (A, 2) #define ENC_dg_unknown_bound(A) ENS_dg_bound (A, 3) #define ENS_dg_class_base(A, B) ENC_BITS (A, 1, B) #define ENX_dg_class_base(A, B) ENC_EXTN (A, 1, B) #define ENC_make_dg_class_base(A) ENS_dg_class_base (A, 1) #define ENS_dg_classmem(A, B) ENC_BITS (A, 3, B) #define ENX_dg_classmem(A, B) ENC_EXTN (A, 3, B) #define ENC_dg_tag_classmem(A) ENS_dg_classmem (A, 1) #define ENC_dg_field_classmem(A) ENS_dg_classmem (A, 2) #define ENC_dg_function_classmem(A) ENS_dg_classmem (A, 3) #define ENC_dg_indirect_classmem(A) ENS_dg_classmem (A, 4) #define ENC_dg_name_classmem(A) ENS_dg_classmem (A, 5) #define ENS_dg_compilation(A, B) ENC_BITS (A, 2, B) #define ENX_dg_compilation(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_tag_compilation(A) ENS_dg_compilation (A, 1) #define ENC_make_dg_compilation(A) ENS_dg_compilation (A, 2) #define ENS_dg_constraint(A, B) ENC_BITS (A, 2, B) #define ENX_dg_constraint(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_type_constraint(A) ENS_dg_constraint (A, 1) #define ENC_dg_value_constraint(A) ENS_dg_constraint (A, 2) #define ENS_dg_default(A, B) ENC_BITS (A, 1, B) #define ENX_dg_default(A, B) ENC_EXTN (A, 1, B) #define ENC_make_dg_default(A) ENS_dg_default (A, 1) #define ENS_dg_dim(A, B) ENC_BITS (A, 3, B) #define ENX_dg_dim(A, B) ENC_EXTN (A, 3, B) #define ENC_dg_dim_apply_token(A) ENS_dg_dim (A, 1) #define ENC_dg_tag_dim(A) ENS_dg_dim (A, 2) #define ENC_dg_bounds_dim(A) ENS_dg_dim (A, 3) #define ENC_dg_count_dim(A) ENS_dg_dim (A, 4) #define ENC_dg_type_dim(A) ENS_dg_dim (A, 5) #define ENC_dg_unspecified_dim(A) ENS_dg_dim (A, 6) #define ENS_dg_discrim(A, B) ENC_BITS (A, 1, B) #define ENX_dg_discrim(A, B) ENC_EXTN (A, 1, B) #define ENC_make_dg_discrim(A) ENS_dg_discrim (A, 1) #define ENS_dg_enum(A, B) ENC_BITS (A, 2, B) #define ENX_dg_enum(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_tag_enum(A) ENS_dg_enum (A, 1) #define ENC_make_dg_enum(A) ENS_dg_enum (A, 2) #define ENC_dg_char_enum(A) ENS_dg_enum (A, 3) #define ENS_dg_filename(A, B) ENC_BITS (A, 2, B) #define ENX_dg_filename(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_filename_apply_token(A) ENS_dg_filename (A, 1) #define ENC_make_dg_filename(A) ENS_dg_filename (A, 2) #define ENS_dg_idname(A, B) ENC_BITS (A, 3, B) #define ENX_dg_idname(A, B) ENC_EXTN (A, 3, B) #define ENC_dg_idname_apply_token(A) ENS_dg_idname (A, 1) #define ENC_dg_anonymous_idname(A) ENS_dg_idname (A, 2) #define ENC_dg_artificial_idname(A) ENS_dg_idname (A, 3) #define ENC_dg_external_idname(A) ENS_dg_idname (A, 4) #define ENC_dg_instance_idname(A) ENS_dg_idname (A, 5) #define ENC_dg_sourcestring_idname(A) ENS_dg_idname (A, 6) #define ENS_dg_macro(A, B) ENC_BITS (A, 2, B) #define ENX_dg_macro(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_function_macro(A) ENS_dg_macro (A, 1) #define ENC_dg_include_macro(A) ENS_dg_macro (A, 2) #define ENC_dg_object_macro(A) ENS_dg_macro (A, 3) #define ENC_dg_undef_macro(A) ENX_dg_macro (A, 4) #define ENS_dg_name(A, B) ENC_BITS (A, 5, B) #define ENX_dg_name(A, B) ENC_EXTN (A, 5, B) #define ENC_dg_name_apply_token(A) ENS_dg_name (A, 1) #define ENC_dg_tag_name(A) ENS_dg_name (A, 2) #define ENC_dg_constant_name(A) ENS_dg_name (A, 3) #define ENC_dg_entry_family_name(A) ENS_dg_name (A, 4) #define ENC_dg_entry_name(A) ENS_dg_name (A, 5) #define ENC_dg_inlined_name(A) ENS_dg_name (A, 6) #define ENC_dg_is_spec_name(A) ENS_dg_name (A, 7) #define ENC_dg_module_name(A) ENS_dg_name (A, 8) #define ENC_dg_namespace_name(A) ENS_dg_name (A, 9) #define ENC_dg_object_name(A) ENS_dg_name (A, 10) #define ENC_dg_proc_name(A) ENS_dg_name (A, 11) #define ENC_dg_program_name(A) ENS_dg_name (A, 12) #define ENC_dg_rep_clause_name(A) ENS_dg_name (A, 13) #define ENC_dg_spec_ref_name(A) ENS_dg_name (A, 14) #define ENC_dg_subunit_name(A) ENS_dg_name (A, 15) #define ENC_dg_type_name(A) ENS_dg_name (A, 16) #define ENC_dg_visibility_name(A) ENS_dg_name (A, 17) #define ENS_dg_namelist(A, B) ENC_BITS (A, 2, B) #define ENX_dg_namelist(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_tag_namelist(A) ENS_dg_namelist (A, 1) #define ENC_make_dg_namelist(A) ENS_dg_namelist (A, 2) #define ENS_dg_param(A, B) ENC_BITS (A, 2, B) #define ENX_dg_param(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_object_param(A) ENS_dg_param (A, 1) #define ENC_dg_type_param(A) ENS_dg_param (A, 2) #define ENS_dg_param_mode(A, B) ENC_BITS (A, 2, B) #define ENX_dg_param_mode(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_in_mode(A) ENS_dg_param_mode (A, 1) #define ENC_dg_inout_mode(A) ENS_dg_param_mode (A, 2) #define ENC_dg_out_mode(A) ENS_dg_param_mode (A, 3) #define ENS_dg_qualifier(A, B) ENC_BITS (A, 3, B) #define ENX_dg_qualifier(A, B) ENC_EXTN (A, 3, B) #define ENC_dg_aliased_qualifier(A) ENS_dg_qualifier (A, 1) #define ENC_dg_class_wide_qualifier(A) ENS_dg_qualifier (A, 2) #define ENC_dg_const_qualifier(A) ENS_dg_qualifier (A, 3) #define ENC_dg_limited_qualifier(A) ENS_dg_qualifier (A, 4) #define ENC_dg_volatile_qualifier(A) ENS_dg_qualifier (A, 5) #define ENS_dg_sourcepos(A, B) ENC_BITS (A, 3, B) #define ENX_dg_sourcepos(A, B) ENC_EXTN (A, 3, B) #define ENC_dg_file_sourcepos(A) ENS_dg_sourcepos (A, 1) #define ENC_dg_global_sourcepos(A) ENS_dg_sourcepos (A, 2) #define ENC_dg_mark_sourcepos(A) ENS_dg_sourcepos (A, 3) #define ENC_dg_null_sourcepos(A) ENS_dg_sourcepos (A, 4) #define ENC_dg_span_sourcepos(A) ENS_dg_sourcepos (A, 5) #define ENS_dg_tag(A, B) ENC_BITS (A, 1, B) #define ENX_dg_tag(A, B) ENC_EXTN (A, 1, B) #define ENC_make_dg_tag(A, B) { ENS_dg_tag (A, 1); ENC_INT (A, B); } #define ENS_dg_type(A, B) ENC_BITS (A, 6, B) #define ENX_dg_type(A, B) ENC_EXTN (A, 6, B) #define ENC_dg_type_apply_token(A) ENS_dg_type (A, 1) #define ENC_dg_tag_type(A) ENS_dg_type (A, 2) #define ENC_dg_address_type(A) ENS_dg_type (A, 3) #define ENC_dg_array_type(A) ENS_dg_type (A, 4) #define ENC_dg_bitfield_type(A) ENS_dg_type (A, 5) #define ENC_dg_boolean_type(A) ENS_dg_type (A, 6) #define ENC_dg_char_type(A) ENS_dg_type (A, 7) #define ENC_dg_class_type(A) ENS_dg_type (A, 8) #define ENC_dg_complex_float_type(A) ENS_dg_type (A, 9) #define ENC_dg_enum_type(A) ENS_dg_type (A, 10) #define ENC_dg_file_type(A) ENS_dg_type (A, 11) #define ENC_dg_fixed_point_type(A) ENS_dg_type (A, 12) #define ENC_dg_float_type(A) ENS_dg_type (A, 13) #define ENC_dg_floating_digits_type(A) ENS_dg_type (A, 14) #define ENC_dg_inlined_type(A) ENS_dg_type (A, 15) #define ENC_dg_integer_type(A) ENS_dg_type (A, 16) #define ENC_dg_is_spec_type(A) ENS_dg_type (A, 17) #define ENC_dg_modular_type(A) ENS_dg_type (A, 18) #define ENC_dg_named_type(A) ENS_dg_type (A, 19) #define ENC_dg_packed_type(A) ENS_dg_type (A, 20) #define ENC_dg_pointer_type(A) ENS_dg_type (A, 21) #define ENC_dg_proc_type(A) ENS_dg_type (A, 22) #define ENC_dg_ptr_memdata_type(A) ENS_dg_type (A, 23) #define ENC_dg_ptr_memfn_type(A) ENS_dg_type (A, 24) #define ENC_dg_qualified_type(A) ENS_dg_type (A, 25) #define ENC_dg_reference_type(A) ENS_dg_type (A, 26) #define ENC_dg_set_type(A) ENS_dg_type (A, 27) #define ENC_dg_spec_ref_type(A) ENS_dg_type (A, 28) #define ENC_dg_string_type(A) ENS_dg_type (A, 29) #define ENC_dg_struct_type(A) ENS_dg_type (A, 30) #define ENC_dg_subrange_type(A) ENS_dg_type (A, 31) #define ENC_dg_synchronous_type(A) ENS_dg_type (A, 32) #define ENC_dg_task_type(A) ENS_dg_type (A, 33) #define ENC_dg_unknown_type(A) ENS_dg_type (A, 34) #define ENC_dg_void_type(A) ENS_dg_type (A, 35) #define ENS_dg_variant(A, B) ENC_BITS (A, 1, B) #define ENX_dg_variant(A, B) ENC_EXTN (A, 1, B) #define ENC_make_dg_variant(A) ENS_dg_variant (A, 1) #define ENS_dg_varpart(A, B) ENC_BITS (A, 2, B) #define ENX_dg_varpart(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_discrim_varpart(A) ENS_dg_varpart (A, 1) #define ENC_dg_sibl_discrim_varpart(A) ENS_dg_varpart (A, 2) #define ENC_dg_undiscrim_varpart(A) ENS_dg_varpart (A, 3) #define ENS_dg_virtuality(A, B) ENC_BITS (A, 2, B) #define ENX_dg_virtuality(A, B) ENC_EXTN (A, 2, B) #define ENC_dg_abstract_virtuality(A) ENS_dg_virtuality (A, 1) #define ENC_dg_virtual_virtuality(A) ENS_dg_virtuality (A, 2) #define ENS_diag_descriptor(A, B) ENC_BITS (A, 2, B) #define ENX_diag_descriptor(A, B) ENC_EXTN (A, 2, B) #define ENC_diag_desc_id(A) ENS_diag_descriptor (A, 1) #define ENC_diag_desc_struct(A) ENS_diag_descriptor (A, 2) #define ENC_diag_desc_typedef(A) ENS_diag_descriptor (A, 3) #define ENS_diag_tag(A, B) ENC_BITS (A, 1, B) #define ENX_diag_tag(A, B) ENC_EXTN (A, 1, B) #define ENC_make_diag_tag(A, B) { ENS_diag_tag (A, 1); ENC_INT (A, B); } #define ENS_diag_tagdef(A, B) ENC_BITS (A, 1, B) #define ENX_diag_tagdef(A, B) ENC_EXTN (A, 1, B) #define ENC_make_diag_tagdef(A) ENS_diag_tagdef (A, 1) #define ENS_diag_tq(A, B) ENC_BITS (A, 2, B) #define ENX_diag_tq(A, B) ENC_EXTN (A, 2, B) #define ENC_add_diag_const(A) ENS_diag_tq (A, 1) #define ENC_add_diag_volatile(A) ENS_diag_tq (A, 2) #define ENC_diag_tq_null(A) ENS_diag_tq (A, 3) #define ENS_diag_type(A, B) ENC_BITS (A, 4, B) #define ENX_diag_type(A, B) ENC_EXTN (A, 4, B) #define ENC_diag_type_apply_token(A) ENS_diag_type (A, 1) #define ENC_diag_array(A) ENS_diag_type (A, 2) #define ENC_diag_bitfield(A) ENS_diag_type (A, 3) #define ENC_diag_enum(A) ENS_diag_type (A, 4) #define ENC_diag_floating_variety(A) ENS_diag_type (A, 5) #define ENC_diag_loc(A) ENS_diag_type (A, 6) #define ENC_diag_proc(A) ENS_diag_type (A, 7) #define ENC_diag_ptr(A) ENS_diag_type (A, 8) #define ENC_diag_struct(A) ENS_diag_type (A, 9) #define ENC_diag_type_null(A) ENS_diag_type (A, 10) #define ENC_diag_union(A) ENS_diag_type (A, 11) #define ENC_diag_variety(A) ENS_diag_type (A, 12) #define ENC_use_diag_tag(A) ENS_diag_type (A, 13) #define ENS_error_code(A, B) ENC_BITS (A, 2, B) #define ENX_error_code(A, B) ENC_EXTN (A, 2, B) #define ENC_nil_access(A) ENS_error_code (A, 1) #define ENC_overflow(A) ENS_error_code (A, 2) #define ENC_stack_overflow(A) ENS_error_code (A, 3) #define ENS_error_treatment(A, B) ENC_BITS (A, 3, B) #define ENX_error_treatment(A, B) ENC_EXTN (A, 3, B) #define ENC_errt_apply_token(A) ENS_error_treatment (A, 1) #define ENC_errt_cond(A) ENS_error_treatment (A, 2) #define ENC_continue(A) ENS_error_treatment (A, 3) #define ENC_error_jump(A) ENS_error_treatment (A, 4) #define ENC_trap(A) ENS_error_treatment (A, 5) #define ENC_wrap(A) ENS_error_treatment (A, 6) #define ENC_impossible(A) ENS_error_treatment (A, 7) #define ENS_exp(A, B) ENC_BITS (A, 7, B) #define ENX_exp(A, B) ENC_EXTN (A, 7, B) #define ENC_exp_apply_token(A) ENS_exp (A, 1) #define ENC_exp_cond(A) ENS_exp (A, 2) #define ENC_abs(A) ENS_exp (A, 3) #define ENC_add_to_ptr(A) ENS_exp (A, 4) #define ENC_and(A) ENS_exp (A, 5) #define ENC_apply_proc(A) ENS_exp (A, 6) #define ENC_apply_general_proc(A) ENS_exp (A, 7) #define ENC_assign(A) ENS_exp (A, 8) #define ENC_assign_with_mode(A) ENS_exp (A, 9) #define ENC_bitfield_assign(A) ENS_exp (A, 10) #define ENC_bitfield_assign_with_mode(A) ENS_exp (A, 11) #define ENC_bitfield_contents(A) ENS_exp (A, 12) #define ENC_bitfield_contents_with_mode(A) ENS_exp (A, 13) #define ENC_case(A) ENS_exp (A, 14) #define ENC_change_bitfield_to_int(A) ENS_exp (A, 15) #define ENC_change_floating_variety(A) ENS_exp (A, 16) #define ENC_change_variety(A) ENS_exp (A, 17) #define ENC_change_int_to_bitfield(A) ENS_exp (A, 18) #define ENC_complex_conjugate(A) ENS_exp (A, 19) #define ENC_component(A) ENS_exp (A, 20) #define ENC_concat_nof(A) ENS_exp (A, 21) #define ENC_conditional(A) ENS_exp (A, 22) #define ENC_contents(A) ENS_exp (A, 23) #define ENC_contents_with_mode(A) ENS_exp (A, 24) #define ENC_current_env(A) ENS_exp (A, 25) #define ENC_div0(A) ENS_exp (A, 26) #define ENC_div1(A) ENS_exp (A, 27) #define ENC_div2(A) ENS_exp (A, 28) #define ENC_env_offset(A) ENS_exp (A, 29) #define ENC_env_size(A) ENS_exp (A, 30) #define ENC_fail_installer(A) ENS_exp (A, 31) #define ENC_float_int(A) ENS_exp (A, 32) #define ENC_floating_abs(A) ENS_exp (A, 33) #define ENC_floating_div(A) ENS_exp (A, 34) #define ENC_floating_minus(A) ENS_exp (A, 35) #define ENC_floating_maximum(A) ENS_exp (A, 36) #define ENC_floating_minimum(A) ENS_exp (A, 37) #define ENC_floating_mult(A) ENS_exp (A, 38) #define ENC_floating_negate(A) ENS_exp (A, 39) #define ENC_floating_plus(A) ENS_exp (A, 40) #define ENC_floating_power(A) ENS_exp (A, 41) #define ENC_floating_test(A) ENS_exp (A, 42) #define ENC_goto(A) ENS_exp (A, 43) #define ENC_goto_local_lv(A) ENS_exp (A, 44) #define ENC_identify(A) ENS_exp (A, 45) #define ENC_ignorable(A) ENS_exp (A, 46) #define ENC_imaginary_part(A) ENS_exp (A, 47) #define ENC_initial_value(A) ENS_exp (A, 48) #define ENC_integer_test(A) ENS_exp (A, 49) #define ENC_labelled(A) ENS_exp (A, 50) #define ENC_last_local(A) ENS_exp (A, 51) #define ENC_local_alloc(A) ENS_exp (A, 52) #define ENC_local_alloc_check(A) ENS_exp (A, 53) #define ENC_local_free(A) ENS_exp (A, 54) #define ENC_local_free_all(A) ENS_exp (A, 55) #define ENC_long_jump(A) ENS_exp (A, 56) #define ENC_make_complex(A) ENS_exp (A, 57) #define ENC_make_compound(A) ENS_exp (A, 58) #define ENC_make_floating(A) ENS_exp (A, 59) #define ENC_make_general_proc(A) ENS_exp (A, 60) #define ENC_make_int(A) ENS_exp (A, 61) #define ENC_make_local_lv(A) ENS_exp (A, 62) #define ENC_make_nof(A) ENS_exp (A, 63) #define ENC_make_nof_int(A) ENS_exp (A, 64) #define ENC_make_null_local_lv(A) ENS_exp (A, 65) #define ENC_make_null_proc(A) ENS_exp (A, 66) #define ENC_make_null_ptr(A) ENS_exp (A, 67) #define ENC_make_proc(A) ENS_exp (A, 68) #define ENC_make_stack_limit(A) ENS_exp (A, 116) #define ENC_make_top(A) ENS_exp (A, 69) #define ENC_make_value(A) ENS_exp (A, 70) #define ENC_maximum(A) ENS_exp (A, 71) #define ENC_minimum(A) ENS_exp (A, 72) #define ENC_minus(A) ENS_exp (A, 73) #define ENC_move_some(A) ENS_exp (A, 74) #define ENC_mult(A) ENS_exp (A, 75) #define ENC_n_copies(A) ENS_exp (A, 76) #define ENC_negate(A) ENS_exp (A, 77) #define ENC_not(A) ENS_exp (A, 78) #define ENC_obtain_tag(A) ENS_exp (A, 79) #define ENC_offset_add(A) ENS_exp (A, 80) #define ENC_offset_div(A) ENS_exp (A, 81) #define ENC_offset_div_by_int(A) ENS_exp (A, 82) #define ENC_offset_max(A) ENS_exp (A, 83) #define ENC_offset_mult(A) ENS_exp (A, 84) #define ENC_offset_negate(A) ENS_exp (A, 85) #define ENC_offset_pad(A) ENS_exp (A, 86) #define ENC_offset_subtract(A) ENS_exp (A, 87) #define ENC_offset_test(A) ENS_exp (A, 88) #define ENC_offset_zero(A) ENS_exp (A, 89) #define ENC_or(A) ENS_exp (A, 90) #define ENC_plus(A) ENS_exp (A, 91) #define ENC_pointer_test(A) ENS_exp (A, 92) #define ENC_power(A) ENS_exp (A, 93) #define ENC_proc_test(A) ENS_exp (A, 94) #define ENC_profile(A) ENS_exp (A, 95) #define ENC_real_part(A) ENS_exp (A, 96) #define ENC_rem0(A) ENS_exp (A, 97) #define ENC_rem1(A) ENS_exp (A, 98) #define ENC_rem2(A) ENS_exp (A, 99) #define ENC_repeat(A) ENS_exp (A, 100) #define ENC_return(A) ENS_exp (A, 101) #define ENC_return_to_label(A) ENS_exp (A, 102) #define ENC_round_with_mode(A) ENS_exp (A, 103) #define ENC_rotate_left(A) ENS_exp (A, 104) #define ENC_rotate_right(A) ENS_exp (A, 105) #define ENC_sequence(A) ENS_exp (A, 106) #define ENC_set_stack_limit(A) ENS_exp (A, 107) #define ENC_shape_offset(A) ENS_exp (A, 108) #define ENC_shift_left(A) ENS_exp (A, 109) #define ENC_shift_right(A) ENS_exp (A, 110) #define ENC_subtract_ptrs(A) ENS_exp (A, 111) #define ENC_tail_call(A) ENS_exp (A, 112) #define ENC_untidy_return(A) ENS_exp (A, 113) #define ENC_variable(A) ENS_exp (A, 114) #define ENC_xor(A) ENS_exp (A, 115) #define ENS_external(A, B) ENC_BITS (A, 2, B) #define ENX_external(A, B) ENC_EXTN (A, 2, B) #define ENC_string_extern(A) ENS_external (A, 1) #define ENC_unique_extern(A) ENS_external (A, 2) #define ENC_chain_extern(A) ENS_external (A, 3) #define ENS_filename(A, B) ENC_BITS (A, 2, B) #define ENX_filename(A, B) ENC_EXTN (A, 2, B) #define ENC_filename_apply_token(A) ENS_filename (A, 1) #define ENC_make_filename(A) ENS_filename (A, 2) #define ENS_floating_variety(A, B) ENC_BITS (A, 3, B) #define ENX_floating_variety(A, B) ENC_EXTN (A, 3, B) #define ENC_flvar_apply_token(A) ENS_floating_variety (A, 1) #define ENC_flvar_cond(A) ENS_floating_variety (A, 2) #define ENC_flvar_parms(A) ENS_floating_variety (A, 3) #define ENC_complex_parms(A) ENS_floating_variety (A, 4) #define ENC_float_of_complex(A) ENS_floating_variety (A, 5) #define ENC_complex_of_float(A) ENS_floating_variety (A, 6) #define ENS_label(A, B) ENC_BITS (A, 1, B) #define ENX_label(A, B) ENC_EXTN (A, 1, B) #define ENC_label_apply_token(A) ENX_label (A, 2) #define ENC_make_label(A, B) { ENS_label (A, 1); ENC_INT (A, B); } #define ENS_linkinfo(A, B) ENC_BITS (A, 2, B) #define ENX_linkinfo(A, B) ENC_EXTN (A, 2, B) #define ENC_static_name_def(A) ENS_linkinfo (A, 1) #define ENC_make_comment(A) ENS_linkinfo (A, 2) #define ENC_make_weak_defn(A) ENS_linkinfo (A, 3) #define ENC_make_weak_symbol(A) ENX_linkinfo (A, 4) #define ENS_nat(A, B) ENC_BITS (A, 3, B) #define ENX_nat(A, B) ENC_EXTN (A, 3, B) #define ENC_nat_apply_token(A) ENS_nat (A, 1) #define ENC_nat_cond(A) ENS_nat (A, 2) #define ENC_computed_nat(A) ENS_nat (A, 3) #define ENC_error_val(A) ENS_nat (A, 4) #define ENC_make_nat(A) ENS_nat (A, 5) #define ENS_ntest(A, B) ENC_BITS (A, 4, B) #define ENX_ntest(A, B) ENC_EXTN (A, 4, B) #define ENC_ntest_apply_token(A) ENS_ntest (A, 1) #define ENC_ntest_cond(A) ENS_ntest (A, 2) #define ENC_equal(A) ENS_ntest (A, 3) #define ENC_greater_than(A) ENS_ntest (A, 4) #define ENC_greater_than_or_equal(A) ENS_ntest (A, 5) #define ENC_less_than(A) ENS_ntest (A, 6) #define ENC_less_than_or_equal(A) ENS_ntest (A, 7) #define ENC_not_equal(A) ENS_ntest (A, 8) #define ENC_not_greater_than(A) ENS_ntest (A, 9) #define ENC_not_greater_than_or_equal(A) ENS_ntest (A, 10) #define ENC_not_less_than(A) ENS_ntest (A, 11) #define ENC_not_less_than_or_equal(A) ENS_ntest (A, 12) #define ENC_less_than_or_greater_than(A) ENS_ntest (A, 13) #define ENC_not_less_than_and_not_great(A) ENS_ntest (A, 14) #define ENC_comparable(A) ENS_ntest (A, 15) #define ENC_not_comparable(A) ENX_ntest (A, 16) #define ENS_procprops(A, B) ENC_BITS (A, 4, B) #define ENX_procprops(A, B) ENC_EXTN (A, 4, B) #define ENC_procprops_apply_token(A) ENS_procprops (A, 1) #define ENC_procprops_cond(A) ENS_procprops (A, 2) #define ENC_add_procprops(A) ENS_procprops (A, 3) #define ENC_check_stack(A) ENS_procprops (A, 4) #define ENC_inline(A) ENS_procprops (A, 5) #define ENC_no_long_jump_dest(A) ENS_procprops (A, 6) #define ENC_untidy(A) ENS_procprops (A, 7) #define ENC_var_callees(A) ENS_procprops (A, 8) #define ENC_var_callers(A) ENS_procprops (A, 9) #define ENS_rounding_mode(A, B) ENC_BITS (A, 3, B) #define ENX_rounding_mode(A, B) ENC_EXTN (A, 3, B) #define ENC_rounding_mode_apply_token(A) ENS_rounding_mode (A, 1) #define ENC_rounding_mode_cond(A) ENS_rounding_mode (A, 2) #define ENC_round_as_state(A) ENS_rounding_mode (A, 3) #define ENC_to_nearest(A) ENS_rounding_mode (A, 4) #define ENC_toward_larger(A) ENS_rounding_mode (A, 5) #define ENC_toward_smaller(A) ENS_rounding_mode (A, 6) #define ENC_toward_zero(A) ENS_rounding_mode (A, 7) #define ENS_shape(A, B) ENC_BITS (A, 4, B) #define ENX_shape(A, B) ENC_EXTN (A, 4, B) #define ENC_shape_apply_token(A) ENS_shape (A, 1) #define ENC_shape_cond(A) ENS_shape (A, 2) #define ENC_bitfield(A) ENS_shape (A, 3) #define ENC_bottom(A) ENS_shape (A, 4) #define ENC_compound(A) ENS_shape (A, 5) #define ENC_floating(A) ENS_shape (A, 6) #define ENC_integer(A) ENS_shape (A, 7) #define ENC_nof(A) ENS_shape (A, 8) #define ENC_offset(A) ENS_shape (A, 9) #define ENC_pointer(A) ENS_shape (A, 10) #define ENC_proc(A) ENS_shape (A, 11) #define ENC_top(A) ENS_shape (A, 12) #define ENS_signed_nat(A, B) ENC_BITS (A, 3, B) #define ENX_signed_nat(A, B) ENC_EXTN (A, 3, B) #define ENC_signed_nat_apply_token(A) ENS_signed_nat (A, 1) #define ENC_signed_nat_cond(A) ENS_signed_nat (A, 2) #define ENC_computed_signed_nat(A) ENS_signed_nat (A, 3) #define ENC_make_signed_nat(A) ENS_signed_nat (A, 4) #define ENC_snat_from_nat(A) ENS_signed_nat (A, 5) #define ENS_sortname(A, B) ENC_BITS (A, 5, B) #define ENX_sortname(A, B) ENC_EXTN (A, 5, B) #define ENC_access(A) ENS_sortname (A, 1) #define ENC_al_tag(A) ENS_sortname (A, 2) #define ENC_alignment_sort(A) ENS_sortname (A, 3) #define ENC_bitfield_variety(A) ENS_sortname (A, 4) #define ENC_bool(A) ENS_sortname (A, 5) #define ENC_error_treatment(A) ENS_sortname (A, 6) #define ENC_exp(A) ENS_sortname (A, 7) #define ENC_floating_variety(A) ENS_sortname (A, 8) #define ENC_foreign_sort(A) ENS_sortname (A, 9) #define ENC_label(A) ENS_sortname (A, 10) #define ENC_nat(A) ENS_sortname (A, 11) #define ENC_ntest(A) ENS_sortname (A, 12) #define ENC_procprops(A) ENS_sortname (A, 13) #define ENC_rounding_mode(A) ENS_sortname (A, 14) #define ENC_shape(A) ENS_sortname (A, 15) #define ENC_signed_nat(A) ENS_sortname (A, 16) #define ENC_string(A) ENS_sortname (A, 17) #define ENC_tag(A) ENS_sortname (A, 18) #define ENC_transfer_mode(A) ENS_sortname (A, 19) #define ENC_token(A) ENS_sortname (A, 20) #define ENC_variety(A) ENS_sortname (A, 21) #define ENS_sourcemark(A, B) ENC_BITS (A, 1, B) #define ENX_sourcemark(A, B) ENC_EXTN (A, 1, B) #define ENC_make_sourcemark(A) ENS_sourcemark (A, 1) #define ENS_string(A, B) ENC_BITS (A, 3, B) #define ENX_string(A, B) ENC_EXTN (A, 3, B) #define ENC_string_apply_token(A) ENS_string (A, 1) #define ENC_string_cond(A) ENS_string (A, 2) #define ENC_concat_string(A) ENS_string (A, 3) #define ENC_make_string(A) ENS_string (A, 4) #define ENS_tag(A, B) ENC_BITS (A, 1, B) #define ENX_tag(A, B) ENC_EXTN (A, 1, B) #define ENC_tag_apply_token(A) ENX_tag (A, 2) #define ENC_make_tag(A, B) { ENS_tag (A, 1); ENC_INT (A, B); } #define ENS_tagdec(A, B) ENC_BITS (A, 2, B) #define ENX_tagdec(A, B) ENC_EXTN (A, 2, B) #define ENC_make_id_tagdec(A) ENS_tagdec (A, 1) #define ENC_make_var_tagdec(A) ENS_tagdec (A, 2) #define ENC_common_tagdec(A) ENS_tagdec (A, 3) #define ENS_tagdef(A, B) ENC_BITS (A, 2, B) #define ENX_tagdef(A, B) ENC_EXTN (A, 2, B) #define ENC_make_id_tagdef(A) ENS_tagdef (A, 1) #define ENC_make_var_tagdef(A) ENS_tagdef (A, 2) #define ENC_common_tagdef(A) ENS_tagdef (A, 3) #define ENS_tokdec(A, B) ENC_BITS (A, 1, B) #define ENX_tokdec(A, B) ENC_EXTN (A, 1, B) #define ENC_make_tokdec(A) ENS_tokdec (A, 1) #define ENS_tokdef(A, B) ENC_BITS (A, 1, B) #define ENX_tokdef(A, B) ENC_EXTN (A, 1, B) #define ENC_make_tokdef(A) ENS_tokdef (A, 1) #define ENS_token(A, B) ENC_BITS (A, 2, B) #define ENX_token(A, B) ENC_EXTN (A, 2, B) #define ENC_token_apply_token(A) ENS_token (A, 1) #define ENC_make_tok(A, B) { ENS_token (A, 2); ENC_INT (A, B); } #define ENC_use_tokdef(A) ENS_token (A, 3) #define ENS_token_defn(A, B) ENC_BITS (A, 1, B) #define ENX_token_defn(A, B) ENC_EXTN (A, 1, B) #define ENC_token_definition(A) ENS_token_defn (A, 1) #define ENS_transfer_mode(A, B) ENC_BITS (A, 3, B) #define ENX_transfer_mode(A, B) ENC_EXTN (A, 3, B) #define ENC_transfer_mode_apply_token(A) ENS_transfer_mode (A, 1) #define ENC_transfer_mode_cond(A) ENS_transfer_mode (A, 2) #define ENC_add_modes(A) ENS_transfer_mode (A, 3) #define ENC_overlap(A) ENS_transfer_mode (A, 4) #define ENC_standard_transfer_mode(A) ENS_transfer_mode (A, 5) #define ENC_trap_on_nil(A) ENS_transfer_mode (A, 6) #define ENC_volatile(A) ENS_transfer_mode (A, 7) #define ENC_complete(A) ENX_transfer_mode (A, 8) #define ENS_variety(A, B) ENC_BITS (A, 2, B) #define ENX_variety(A, B) ENC_EXTN (A, 2, B) #define ENC_var_apply_token(A) ENS_variety (A, 1) #define ENC_var_cond(A) ENS_variety (A, 2) #define ENC_var_limits(A) ENS_variety (A, 3) #define ENC_var_width(A) ENX_variety (A, 4) #define ENS_version(A, B) ENC_BITS (A, 1, B) #define ENX_version(A, B) ENC_EXTN (A, 1, B) #define ENC_make_version(A) ENS_version (A, 1) #define ENC_user_info(A) ENX_version (A, 2)