int main()
{
StartClock();
unsigned int *no_init_ptr;
unsigned int *ptr;
struct UnsignedInt_Type1 ptr_str;
((ptr_str.Void_Type0::ptr = ptr , ptr_str.addr = (reinterpret_cast < unsigned long long > ((&ptr)))) , ((Assign(&ptr_str,UnsignedInt_Type1_Cast_Void_Type0(malloc_overload(400UL))) , ptr = ptr_str.Void_Type0::ptr)));
unsigned int *ptr2;
struct UnsignedInt_Type1 ptr2_str;
((ptr2_str.Void_Type0::ptr = ptr2 , ptr2_str.addr = (reinterpret_cast < unsigned long long > ((&ptr2)))) , ((Assign(&ptr2_str,UnsignedInt_Type1_Cast_Void_Type0(malloc_overload(40UL))) , ptr2 = ptr2_str.Void_Type0::ptr)));
unsigned int *ptr_index;
unsigned int counter = 0U;
struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_2;
struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_3;
for ((((UnsignedInt_Type1_ovl_2 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Assign_UnsignedInt_Type1_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_2))),ptr_str)) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_2.addr)))) = UnsignedInt_Type1_ovl_2.Void_Type0::ptr) , UnsignedInt_Type1_ovl_2); b_LessThan_UnsignedInt_Type1_UnsignedInt_Type1(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))),UnsignedInt_Type1_Add_UnsignedInt_Type1_i(ptr_str,100)); (((UnsignedInt_Type1_ovl_3 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Increment_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_3))))) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_3.addr)))) = UnsignedInt_Type1_ovl_3.Void_Type0::ptr) , UnsignedInt_Type1_ovl_3)) {
*Deref(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index))))) = counter++;
}
struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_4;
struct UnsignedInt_Type1 UnsignedInt_Type1_ovl_5;
for ((((UnsignedInt_Type1_ovl_4 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Assign_UnsignedInt_Type1_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_4))),UnsignedInt_Type1_Sub_UnsignedInt_Type1_i(UnsignedInt_Type1_Add_UnsignedInt_Type1_i(ptr_str,100),1))) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_4.addr)))) = UnsignedInt_Type1_ovl_4.Void_Type0::ptr) , UnsignedInt_Type1_ovl_4); b_GreaterOrEqual_UnsignedInt_Type1_UnsignedInt_Type1(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))),ptr_str); (((UnsignedInt_Type1_ovl_5 = create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index)))) , UnsignedInt_Type1_Decrement_UnsignedInt_Type1((reinterpret_cast < unsigned long long > ((&UnsignedInt_Type1_ovl_5))))) , ((unsigned int *)( *(reinterpret_cast < void ** > (UnsignedInt_Type1_ovl_5.addr)))) = UnsignedInt_Type1_ovl_5.Void_Type0::ptr) , UnsignedInt_Type1_ovl_5)) {
printf("%u\n", *Deref(create_struct(ptr_index,(reinterpret_cast < unsigned long long > ((&ptr_index))))));
}
EndClock();
return 1;
}
void test_message() {
question_t* q = create_struct(sizeof(question_t));
resource_t* r = create_struct(sizeof(resource_t));
message_t* msg = create_message();
msg->header->id = 1123;
msg->header->QR = 1;
msg->header->AA = 1;
msg->header->TC = 1;
msg->header->RD = 1;
msg->header->RA = 1;
msg->header->Z = 1;
msg->header->RCODE = 1;
msg->header->QDCOUNT = 1;
msg->header->ANCOUNT = 1;
msg->header->NSCOUNT = 0;
msg->header->ARCOUNT = 0;
q->QNAME = "video.cs.cmu.edu";
q->QTYPE = 1;
q->QCLASS = 1;
r->NAME = "video.cs.cmu.edu";
r->TYPE = 1;
r->CLASS = 1;
r->TTL = 214722222;
r->RDLENGTH = 8;
r->RDATA = "3.0.0.1";
list_add(msg->question, q);
list_add(msg->answer, r);
printf("%d\n", dumps_message(msg, buf));
msg = loads_message(buf);
}
/* include-finalizer */
obj_t BGl_includezd2finaliza7erz75zzmodule_includez00()
{
AN_OBJECT;
{ /* Module/include.scm 153 */
{ /* Module/include.scm 154 */
obj_t BgL_arg1571z00_185;
obj_t BgL_arg1574z00_187;
BgL_arg1571z00_185 = CNST_TABLE_REF(((long) 1));
BgL_arg1574z00_187 =
bgl_reverse_bang(BGl_za2producedzd2codeza2zd2zzmodule_includez00);
{ /* Module/include.scm 154 */
obj_t BgL_newz00_268;
BgL_newz00_268 =
create_struct(CNST_TABLE_REF(((long) 2)), (int) (((long) 5)));
{ /* Module/include.scm 154 */
int BgL_auxz00_409;
BgL_auxz00_409 = (int) (((long) 4));
STRUCT_SET(BgL_newz00_268, BgL_auxz00_409, BFALSE);
}
{ /* Module/include.scm 154 */
int BgL_auxz00_412;
BgL_auxz00_412 = (int) (((long) 3));
STRUCT_SET(BgL_newz00_268, BgL_auxz00_412, BTRUE);
}
{ /* Module/include.scm 154 */
int BgL_auxz00_415;
BgL_auxz00_415 = (int) (((long) 2));
STRUCT_SET(BgL_newz00_268, BgL_auxz00_415, BgL_arg1574z00_187);
}
{ /* Module/include.scm 154 */
obj_t BgL_auxz00_420;
int BgL_auxz00_418;
BgL_auxz00_420 = BINT(((long) 100));
BgL_auxz00_418 = (int) (((long) 1));
STRUCT_SET(BgL_newz00_268, BgL_auxz00_418, BgL_auxz00_420);
}
{ /* Module/include.scm 154 */
int BgL_auxz00_423;
BgL_auxz00_423 = (int) (((long) 0));
STRUCT_SET(BgL_newz00_268, BgL_auxz00_423, BgL_arg1571z00_185);
}
BGl_za2toplevelzd2unitza2zd2zzmodule_includez00 = BgL_newz00_268;
}}
{ /* Module/include.scm 159 */
obj_t BgL_list1575z00_188;
BgL_list1575z00_188 =
MAKE_PAIR(BGl_za2toplevelzd2unitza2zd2zzmodule_includez00, BNIL);
return BgL_list1575z00_188;
}
}
}
/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__rgc_configz00()
{
AN_OBJECT;
{ /* Rgc/rgcconfig.scm 14 */
BGl_za2rgczd2optimza2zd2zz__rgc_configz00 = BTRUE;
{ /* Rgc/rgcconfig.scm 113 */
obj_t BgL_arg1900z00_806;
BgL_arg1900z00_806 = BGl_list2181z00zz__rgc_configz00;
{ /* Rgc/rgcconfig.scm 113 */
obj_t BgL_newz00_1287;
BgL_newz00_1287 =
create_struct(BGl_symbol2248z00zz__rgc_configz00,
(int) (((long) 7)));
{ /* Rgc/rgcconfig.scm 113 */
int BgL_auxz00_1707;
BgL_auxz00_1707 = (int) (((long) 6));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1707, BgL_arg1900z00_806);
}
{ /* Rgc/rgcconfig.scm 113 */
int BgL_auxz00_1710;
BgL_auxz00_1710 = (int) (((long) 5));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1710,
BGl_proc2244z00zz__rgc_configz00);
}
{ /* Rgc/rgcconfig.scm 113 */
int BgL_auxz00_1713;
BgL_auxz00_1713 = (int) (((long) 4));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1713,
BGl_proc2245z00zz__rgc_configz00);
}
{ /* Rgc/rgcconfig.scm 113 */
int BgL_auxz00_1716;
BgL_auxz00_1716 = (int) (((long) 3));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1716,
BGl_proc2246z00zz__rgc_configz00);
}
{ /* Rgc/rgcconfig.scm 113 */
int BgL_auxz00_1719;
BgL_auxz00_1719 = (int) (((long) 2));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1719,
BGl_proc2247z00zz__rgc_configz00);
}
{ /* Rgc/rgcconfig.scm 113 */
obj_t BgL_auxz00_1724;
int BgL_auxz00_1722;
BgL_auxz00_1724 = BINT(((long) 256));
BgL_auxz00_1722 = (int) (((long) 1));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1722, BgL_auxz00_1724);
}
{ /* Rgc/rgcconfig.scm 113 */
int BgL_auxz00_1727;
BgL_auxz00_1727 = (int) (((long) 0));
STRUCT_SET(BgL_newz00_1287, BgL_auxz00_1727,
BGl_string2250z00zz__rgc_configz00);
}
BGl_za2asciizd2configza2zd2zz__rgc_configz00 = BgL_newz00_1287;
}}
return (BGl_za2rgczd2configza2zd2zz__rgc_configz00 =
BGl_za2asciizd2configza2zd2zz__rgc_configz00, BUNSPEC);
}
}
/* declare-tvector! */
BGL_EXPORTED_DEF obj_t BGl_declarezd2tvectorz12zc0zz__tvectorz00(char
*BgL_idz00_23, obj_t BgL_allocatez00_24, obj_t BgL_refz00_25,
obj_t BgL_setz00_26)
{
AN_OBJECT;
{ /* Llib/tvector.scm 139 */
{ /* Llib/tvector.scm 140 */
obj_t BgL_idz00_787;
{ /* Llib/tvector.scm 140 */
obj_t BgL_arg1898z00_792;
{ /* Llib/tvector.scm 140 */
obj_t BgL_casezd2valuezd2_793;
BgL_casezd2valuezd2_793 =
BGl_bigloozd2casezd2sensitivityz00zz__readerz00();
if ((BgL_casezd2valuezd2_793 == BGl_symbol2204z00zz__tvectorz00))
{ /* Llib/tvector.scm 140 */
BgL_arg1898z00_792 =
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(string_to_bstring
(BgL_idz00_23));
}
else
{ /* Llib/tvector.scm 140 */
if (
(BgL_casezd2valuezd2_793 == BGl_symbol2206z00zz__tvectorz00))
{ /* Llib/tvector.scm 140 */
BgL_arg1898z00_792 =
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00
(string_to_bstring(BgL_idz00_23));
}
else
{ /* Llib/tvector.scm 140 */
BgL_arg1898z00_792 = string_to_bstring(BgL_idz00_23);
}
}
}
BgL_idz00_787 =
string_to_symbol(BSTRING_TO_STRING(BgL_arg1898z00_792));
}
{ /* Llib/tvector.scm 140 */
obj_t BgL_oldz00_788;
if (PAIRP(BGl_za2tvectorzd2tableza2zd2zz__tvectorz00))
{ /* Llib/tvector.scm 147 */
obj_t BgL_cellz00_1335;
BgL_cellz00_1335 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_787,
BGl_za2tvectorzd2tableza2zd2zz__tvectorz00);
if (PAIRP(BgL_cellz00_1335))
{ /* Llib/tvector.scm 147 */
BgL_oldz00_788 = CDR(BgL_cellz00_1335);
}
else
{ /* Llib/tvector.scm 147 */
BgL_oldz00_788 = BFALSE;
}
}
else
{ /* Llib/tvector.scm 147 */
BgL_oldz00_788 = BFALSE;
}
{ /* Llib/tvector.scm 147 */
{ /* Llib/tvector.scm 148 */
bool_t BgL_testz00_1752;
if (STRUCTP(BgL_oldz00_788))
{ /* Llib/tvector.scm 148 */
BgL_testz00_1752 =
(STRUCT_KEY(BgL_oldz00_788) ==
BGl_symbol2208z00zz__tvectorz00);
}
else
{ /* Llib/tvector.scm 148 */
BgL_testz00_1752 = ((bool_t) 0);
}
if (BgL_testz00_1752)
{ /* Llib/tvector.scm 148 */
return BgL_oldz00_788;
}
else
{ /* Llib/tvector.scm 149 */
obj_t BgL_newz00_790;
{ /* Llib/tvector.scm 149 */
obj_t BgL_newz00_1351;
BgL_newz00_1351 =
create_struct(BGl_symbol2208z00zz__tvectorz00,
(int) (((long) 4)));
{ /* Llib/tvector.scm 149 */
int BgL_auxz00_1759;
BgL_auxz00_1759 = (int) (((long) 3));
STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1759,
BgL_setz00_26);
}
{ /* Llib/tvector.scm 149 */
int BgL_auxz00_1762;
BgL_auxz00_1762 = (int) (((long) 2));
STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1762,
BgL_refz00_25);
}
{ /* Llib/tvector.scm 149 */
int BgL_auxz00_1765;
BgL_auxz00_1765 = (int) (((long) 1));
STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1765,
BgL_allocatez00_24);
}
{ /* Llib/tvector.scm 149 */
int BgL_auxz00_1768;
BgL_auxz00_1768 = (int) (((long) 0));
STRUCT_SET(BgL_newz00_1351, BgL_auxz00_1768,
BgL_idz00_787);
}
BgL_newz00_790 = BgL_newz00_1351;
}
{ /* Llib/tvector.scm 150 */
obj_t BgL_arg1896z00_791;
BgL_arg1896z00_791 =
MAKE_PAIR(BgL_idz00_787, BgL_newz00_790);
BGl_za2tvectorzd2tableza2zd2zz__tvectorz00 =
MAKE_PAIR(BgL_arg1896z00_791,
BGl_za2tvectorzd2tableza2zd2zz__tvectorz00);
}
return BgL_newz00_790;
}
}
}
}
}
}
}
/* initialize-ast */
BGL_EXPORTED_DEF obj_t BGl_initializa7ezd2astz75zzbdb_initializa7eza7()
{
AN_OBJECT;
{ /* Bdb/bdb_initialize.scm 42 */
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_bodyz00_815;
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_arg3296z00_830;
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_arg3298z00_832;
obj_t BgL_arg3299z00_833;
BgL_arg3298z00_832 = CNST_TABLE_REF(((long) 0));
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_arg3300z00_834;
obj_t BgL_arg3301z00_835;
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_arg3305z00_839;
obj_t BgL_arg3306z00_840;
BgL_arg3305z00_839 = CNST_TABLE_REF(((long) 1));
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_list3307z00_841;
BgL_list3307z00_841 = MAKE_PAIR(BNIL, BNIL);
BgL_arg3306z00_840 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BGl_za2moduleza2z00zzmodule_modulez00,
BgL_list3307z00_841);
}
BgL_arg3300z00_834 =
MAKE_PAIR(BgL_arg3305z00_839, BgL_arg3306z00_840);
}
{ /* Bdb/bdb_initialize.scm 45 */
obj_t BgL_arg3308z00_842;
obj_t BgL_arg3309z00_843;
BgL_arg3308z00_842 = CNST_TABLE_REF(((long) 2));
{ /* Bdb/bdb_initialize.scm 45 */
obj_t BgL_list3310z00_844;
BgL_list3310z00_844 = MAKE_PAIR(BNIL, BNIL);
BgL_arg3309z00_843 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BGl_string3363z00zzbdb_initializa7eza7,
BgL_list3310z00_844);
}
BgL_arg3301z00_835 =
MAKE_PAIR(BgL_arg3308z00_842, BgL_arg3309z00_843);
}
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_list3303z00_837;
{ /* Bdb/bdb_initialize.scm 44 */
obj_t BgL_arg3304z00_838;
BgL_arg3304z00_838 = MAKE_PAIR(BNIL, BNIL);
BgL_list3303z00_837 =
MAKE_PAIR(BgL_arg3301z00_835, BgL_arg3304z00_838);
}
BgL_arg3299z00_833 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg3300z00_834, BgL_list3303z00_837);
}}
BgL_arg3296z00_830 =
MAKE_PAIR(BgL_arg3298z00_832, BgL_arg3299z00_833);
}
BgL_bodyz00_815 = MAKE_PAIR(BgL_arg3296z00_830, BNIL);
}
{ /* Bdb/bdb_initialize.scm 46 */
obj_t BgL_unitz00_816;
{ /* Bdb/bdb_initialize.scm 46 */
obj_t BgL_idz00_1267;
BgL_idz00_1267 = CNST_TABLE_REF(((long) 3));
{ /* Bdb/bdb_initialize.scm 46 */
obj_t BgL_newz00_1272;
BgL_newz00_1272 =
create_struct(CNST_TABLE_REF(((long) 4)), (int) (((long) 5)));
{ /* Bdb/bdb_initialize.scm 46 */
int BgL_auxz00_1357;
BgL_auxz00_1357 = (int) (((long) 4));
STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1357, BFALSE);
}
{ /* Bdb/bdb_initialize.scm 46 */
int BgL_auxz00_1360;
BgL_auxz00_1360 = (int) (((long) 3));
STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1360, BTRUE);
}
{ /* Bdb/bdb_initialize.scm 46 */
int BgL_auxz00_1363;
BgL_auxz00_1363 = (int) (((long) 2));
STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1363, BgL_bodyz00_815);
}
{ /* Bdb/bdb_initialize.scm 46 */
obj_t BgL_auxz00_1368;
int BgL_auxz00_1366;
BgL_auxz00_1368 = BINT(((long) 9));
BgL_auxz00_1366 = (int) (((long) 1));
STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1366, BgL_auxz00_1368);
}
{ /* Bdb/bdb_initialize.scm 46 */
int BgL_auxz00_1371;
BgL_auxz00_1371 = (int) (((long) 0));
STRUCT_SET(BgL_newz00_1272, BgL_auxz00_1371, BgL_idz00_1267);
}
BgL_unitz00_816 = BgL_newz00_1272;
}}
{ /* Bdb/bdb_initialize.scm 47 */
obj_t BgL_astz00_817;
{ /* Bdb/bdb_initialize.scm 47 */
obj_t BgL_arg3294z00_828;
{ /* Bdb/bdb_initialize.scm 47 */
obj_t BgL_list3295z00_829;
BgL_list3295z00_829 = MAKE_PAIR(BgL_unitz00_816, BNIL);
BgL_arg3294z00_828 = BgL_list3295z00_829;
}
BgL_astz00_817 =
BGl_buildzd2astzd2zzast_buildz00(BgL_arg3294z00_828);
}
{
obj_t BgL_l3277z00_819;
BgL_l3277z00_819 = BgL_astz00_817;
BgL_zc3anonymousza33288ze3z83_820:
if (PAIRP(BgL_l3277z00_819))
{ /* Bdb/bdb_initialize.scm 48 */
{ /* Bdb/bdb_initialize.scm 49 */
obj_t BgL_globalz00_822;
BgL_globalz00_822 = CAR(BgL_l3277z00_819);
{ /* Bdb/bdb_initialize.scm 49 */
obj_t BgL_arg3290z00_823;
BgL_typez00_bglt BgL_arg3291z00_824;
{ /* Bdb/bdb_initialize.scm 49 */
BgL_sfunz00_bglt BgL_obj1907z00_1303;
{ /* Bdb/bdb_initialize.scm 49 */
BgL_variablez00_bglt BgL_obj1632z00_1302;
BgL_obj1632z00_1302 =
(BgL_variablez00_bglt) (BgL_globalz00_822);
BgL_obj1907z00_1303 =
(BgL_sfunz00_bglt) (
(((BgL_variablez00_bglt)
CREF(BgL_obj1632z00_1302))->BgL_valuez00));
}
BgL_arg3290z00_823 =
(((BgL_sfunz00_bglt) CREF(BgL_obj1907z00_1303))->
BgL_bodyz00);
}
{
BgL_variablez00_bglt BgL_auxz00_1383;
BgL_auxz00_1383 =
(BgL_variablez00_bglt) (BgL_globalz00_822);
BgL_arg3291z00_824 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1383))->
BgL_typez00);
}
BGl_coercez12z12zzcoerce_coercez00(
(BgL_nodez00_bglt) (BgL_arg3290z00_823),
BgL_globalz00_822, BgL_arg3291z00_824, ((bool_t) 0));
}
}
{
obj_t BgL_l3277z00_1388;
BgL_l3277z00_1388 = CDR(BgL_l3277z00_819);
BgL_l3277z00_819 = BgL_l3277z00_1388;
goto BgL_zc3anonymousza33288ze3z83_820;
}
}
else
{ /* Bdb/bdb_initialize.scm 48 */
((bool_t) 1);
}
}
return BgL_astz00_817;
}
}
}
}
}
