Changeset 1774


Ignore:
Timestamp:
Jun 9, 2005, 7:35:45 AM (16 years ago)
Author:
orlov
Message:
  • Fresh-generated compiler sources.
Location:
to-imperative/trunk/bootstrap/compiler
Files:
14 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/bootstrap/compiler/rfp-filt.cc

    r1712 r1774  
    7474_block1: {}
    7575  {
     76    Expr _vt_erm;
     77    if (!RF_CALL (StdIO::Read, /*void*/, _vt_erm))
    7678    {
    77       Expr _vt_erm;
     79      goto _block2__branch1;
     80    }
     81    for ( ; ; )
     82    {
     83      {
     84        Expr _v_Apply1;
     85        if (!RF_CALL (Apply::Apply, (_vs_func, _vt_erm), _v_Apply1))
     86        {
     87          goto _iter1;
     88        }
     89        uintptr_t _v_len1 = _v_Apply1.get_len ();
     90        uintptr_t _v_len2 = 0;
     91        if ((_v_len1 < _v_len2))
     92        {
     93          goto _iter1;
     94        }
     95        uintptr_t _v_len___e__e_tmp_m_rfp_m_filtrf_m_25_m_30 = (_v_len1 - _v_len2);
     96        Expr _ve__e__e_tmp_m_rfp_m_filtrf_m_25_m_30 (_v_Apply1, 0, _v_len___e__e_tmp_m_rfp_m_filtrf_m_25_m_30);
     97      }
     98    _iter1: {}
    7899      if (!RF_CALL (StdIO::Read, /*void*/, _vt_erm))
    79100      {
    80101        goto _block2__branch1;
    81102      }
    82       for ( ; ; )
    83       {
    84         {
    85           Expr _v_Apply1;
    86           if (!RF_CALL (Apply::Apply, (_vs_func, _vt_erm), _v_Apply1))
    87           {
    88             goto _iter1;
    89           }
    90           uintptr_t _v_len1 = _v_Apply1.get_len ();
    91           uintptr_t _v_len2 = 0;
    92           if ((_v_len1 < _v_len2))
    93           {
    94             goto _iter1;
    95           }
    96           uintptr_t _v_len___e__e_tmp_m_rfp_m_filtrf_m_25_m_30 = (_v_len1 - _v_len2);
    97           Expr _ve__e__e_tmp_m_rfp_m_filtrf_m_25_m_30 (_v_Apply1, 0, _v_len___e__e_tmp_m_rfp_m_filtrf_m_25_m_30);
    98           goto _iter1;
    99           goto _exit__iter1;
    100         }
    101       _iter1: {}
    102         if (!RF_CALL (StdIO::Read, /*void*/, _vt_erm))
    103         {
    104           goto _block2__branch1;
    105         }
    106       }
    107     _exit__iter1: {}
    108       goto _block2;
    109103    }
    110   _block2__branch1: {}
    111     _v_res1 = empty;
    112104  }
    113 _block2: {}
     105_block2__branch1: {}
     106  _v_res1 = empty;
    114107RF_END
    115108
  • to-imperative/trunk/bootstrap/compiler/rfp_asail.cc

    r1712 r1774  
    7171static Expr _c_2;
    7272
     73static Expr _c_151;
     74
     75static Expr _c_25;
     76
     77static Expr _c_6;
     78
     79static Expr _c_8;
     80
     81static Expr _c_3;
     82
     83static Expr _c_4;
     84
     85static Expr _c_5;
     86
     87static Expr _c_7;
     88
     89static Expr _c_9;
     90
     91static Expr _c_10;
     92
     93static Expr _c_152;
     94
     95static Expr _c_11;
     96
     97static Expr _c_12;
     98
     99static Expr _c_13;
     100
     101static Expr _c_146;
     102
     103static Expr _c_14;
     104
     105static Expr _c_15;
     106
     107static Expr _c_16;
     108
     109static Expr _c_17;
     110
     111static Expr _c_18;
     112
     113static Expr _c_19;
     114
     115static Expr _c_20;
     116
     117static Expr _c_21;
     118
     119static Expr _c_22;
     120
     121static Expr _c_23;
     122
     123static Expr _c_24;
     124
     125static Expr _c_27;
     126
     127static Expr _c_26;
     128
     129static Expr _c_28;
     130
     131static Expr _c_29;
     132
     133static Expr _c_30;
     134
     135static Expr _c_31;
     136
     137static Expr _c_32;
     138
     139static Expr _c_33;
     140
     141static Expr _c_34;
     142
     143static Expr _c_35;
     144
     145static Expr _c_36;
     146
     147static Expr _c_37;
     148
     149static Expr _c_38;
     150
     151static Expr _c_39;
     152
     153static Expr _c_40;
     154
     155static Expr _c_41;
     156
     157static Expr _c_42;
     158
     159static Expr _c_43;
     160
     161static Expr _c_44;
     162
     163static Expr _c_45;
     164
     165static Expr _c_46;
     166
     167static Expr _c_47;
     168
     169static Expr _c_48;
     170
     171static Expr _c_70;
     172
     173static Expr _c_49;
     174
     175static Expr _c_50;
     176
     177static Expr _c_51;
     178
     179static Expr _c_52;
     180
     181static Expr _c_53;
     182
     183static Expr _c_54;
     184
     185static Expr _c_55;
     186
     187static Expr _c_56;
     188
     189static Expr _c_57;
     190
     191static Expr _c_58;
     192
     193static Expr _c_59;
     194
     195static Expr _c_60;
     196
     197static Expr _c_61;
     198
     199static Expr _c_62;
     200
     201static Expr _c_63;
     202
     203static Expr _c_64;
     204
     205static Expr _c_65;
     206
     207static Expr _c_66;
     208
     209static Expr _c_67;
     210
     211static Expr _c_68;
     212
     213static Expr _c_69;
     214
     215static Expr _c_71;
     216
     217static Expr _c_72;
     218
     219static Expr _c_73;
     220
     221static Expr _c_74;
     222
     223static Expr _c_75;
     224
     225static Expr _c_76;
     226
     227static Expr _c_77;
     228
     229static Expr _c_78;
     230
     231static Expr _c_79;
     232
     233static Expr _c_80;
     234
     235static Expr _c_81;
     236
     237static Expr _c_82;
     238
     239static Expr _c_83;
     240
     241static Expr _c_84;
     242
     243static Expr _c_131;
     244
     245static Expr _c_85;
     246
     247static Expr _c_86;
     248
     249static Expr _c_87;
     250
     251static Expr _c_88;
     252
     253static Expr _c_89;
     254
     255static Expr _c_90;
     256
     257static Expr _c_91;
     258
     259static Expr _c_92;
     260
     261static Expr _c_93;
     262
     263static Expr _c_94;
     264
     265static Expr _c_95;
     266
     267static Expr _c_96;
     268
     269static Expr _c_97;
     270
     271static Expr _c_98;
     272
     273static Expr _c_99;
     274
     275static Expr _c_100;
     276
     277static Expr _c_101;
     278
     279static Expr _c_102;
     280
     281static Expr _c_103;
     282
     283static Expr _c_104;
     284
     285static Expr _c_105;
     286
     287static Expr _c_106;
     288
     289static Expr _c_107;
     290
     291static Expr _c_108;
     292
     293static Expr _c_109;
     294
     295static Expr _c_110;
     296
     297static Expr _c_111;
     298
     299static Expr _c_112;
     300
     301static Expr _c_113;
     302
     303static Expr _c_114;
     304
     305static Expr _c_115;
     306
     307static Expr _c_116;
     308
     309static Expr _c_117;
     310
     311static Expr _c_118;
     312
     313static Expr _c_119;
     314
     315static Expr _c_120;
     316
     317static Expr _c_121;
     318
     319static Expr _c_122;
     320
     321static Expr _c_123;
     322
     323static Expr _c_124;
     324
     325static Expr _c_125;
     326
     327static Expr _c_126;
     328
     329static Expr _c_128;
     330
     331static Expr _c_127;
     332
     333static Expr _c_129;
     334
     335static Expr _c_130;
     336
     337static Expr _c_134;
     338
     339static Expr _c_132;
     340
     341static Expr _c_133;
     342
     343static Expr _c_136;
     344
     345static Expr _c_135;
     346
     347static Expr _c_137;
     348
     349static Expr _c_138;
     350
     351static Expr _c_139;
     352
     353static Expr _c_140;
     354
     355static Expr _c_141;
     356
     357static Expr _c_142;
     358
     359static Expr _c_143;
     360
     361static Expr _c_144;
     362
     363static Expr _c_145;
     364
     365static Expr _c_147;
     366
     367static Expr _c_148;
     368
    73369static Expr _c_149;
    74370
    75 static Expr _c_25;
    76 
    77 static Expr _c_6;
    78 
    79 static Expr _c_8;
    80 
    81 static Expr _c_3;
    82 
    83 static Expr _c_4;
    84 
    85 static Expr _c_5;
    86 
    87 static Expr _c_7;
    88 
    89 static Expr _c_9;
    90 
    91 static Expr _c_10;
    92 
    93371static Expr _c_150;
    94 
    95 static Expr _c_11;
    96 
    97 static Expr _c_12;
    98 
    99 static Expr _c_13;
    100 
    101 static Expr _c_144;
    102 
    103 static Expr _c_14;
    104 
    105 static Expr _c_15;
    106 
    107 static Expr _c_16;
    108 
    109 static Expr _c_17;
    110 
    111 static Expr _c_18;
    112 
    113 static Expr _c_19;
    114 
    115 static Expr _c_20;
    116 
    117 static Expr _c_21;
    118 
    119 static Expr _c_22;
    120 
    121 static Expr _c_23;
    122 
    123 static Expr _c_24;
    124 
    125 static Expr _c_27;
    126 
    127 static Expr _c_26;
    128 
    129 static Expr _c_28;
    130 
    131 static Expr _c_29;
    132 
    133 static Expr _c_30;
    134 
    135 static Expr _c_31;
    136 
    137 static Expr _c_32;
    138 
    139 static Expr _c_33;
    140 
    141 static Expr _c_34;
    142 
    143 static Expr _c_35;
    144 
    145 static Expr _c_36;
    146 
    147 static Expr _c_37;
    148 
    149 static Expr _c_38;
    150 
    151 static Expr _c_39;
    152 
    153 static Expr _c_40;
    154 
    155 static Expr _c_41;
    156 
    157 static Expr _c_42;
    158 
    159 static Expr _c_43;
    160 
    161 static Expr _c_44;
    162 
    163 static Expr _c_45;
    164 
    165 static Expr _c_46;
    166 
    167 static Expr _c_47;
    168 
    169 static Expr _c_48;
    170 
    171 static Expr _c_68;
    172 
    173 static Expr _c_49;
    174 
    175 static Expr _c_50;
    176 
    177 static Expr _c_51;
    178 
    179 static Expr _c_52;
    180 
    181 static Expr _c_53;
    182 
    183 static Expr _c_54;
    184 
    185 static Expr _c_55;
    186 
    187 static Expr _c_56;
    188 
    189 static Expr _c_57;
    190 
    191 static Expr _c_58;
    192 
    193 static Expr _c_59;
    194 
    195 static Expr _c_60;
    196 
    197 static Expr _c_61;
    198 
    199 static Expr _c_62;
    200 
    201 static Expr _c_63;
    202 
    203 static Expr _c_64;
    204 
    205 static Expr _c_65;
    206 
    207 static Expr _c_66;
    208 
    209 static Expr _c_67;
    210 
    211 static Expr _c_69;
    212 
    213 static Expr _c_70;
    214 
    215 static Expr _c_71;
    216 
    217 static Expr _c_72;
    218 
    219 static Expr _c_73;
    220 
    221 static Expr _c_74;
    222 
    223 static Expr _c_75;
    224 
    225 static Expr _c_76;
    226 
    227 static Expr _c_77;
    228 
    229 static Expr _c_78;
    230 
    231 static Expr _c_79;
    232 
    233 static Expr _c_80;
    234 
    235 static Expr _c_81;
    236 
    237 static Expr _c_82;
    238 
    239 static Expr _c_129;
    240 
    241 static Expr _c_83;
    242 
    243 static Expr _c_84;
    244 
    245 static Expr _c_85;
    246 
    247 static Expr _c_86;
    248 
    249 static Expr _c_87;
    250 
    251 static Expr _c_88;
    252 
    253 static Expr _c_89;
    254 
    255 static Expr _c_90;
    256 
    257 static Expr _c_91;
    258 
    259 static Expr _c_92;
    260 
    261 static Expr _c_93;
    262 
    263 static Expr _c_94;
    264 
    265 static Expr _c_95;
    266 
    267 static Expr _c_96;
    268 
    269 static Expr _c_97;
    270 
    271 static Expr _c_98;
    272 
    273 static Expr _c_99;
    274 
    275 static Expr _c_100;
    276 
    277 static Expr _c_101;
    278 
    279 static Expr _c_102;
    280 
    281 static Expr _c_103;
    282 
    283 static Expr _c_104;
    284 
    285 static Expr _c_105;
    286 
    287 static Expr _c_106;
    288 
    289 static Expr _c_107;
    290 
    291 static Expr _c_108;
    292 
    293 static Expr _c_109;
    294 
    295 static Expr _c_110;
    296 
    297 static Expr _c_111;
    298 
    299 static Expr _c_112;
    300 
    301 static Expr _c_113;
    302 
    303 static Expr _c_114;
    304 
    305 static Expr _c_115;
    306 
    307 static Expr _c_116;
    308 
    309 static Expr _c_117;
    310 
    311 static Expr _c_118;
    312 
    313 static Expr _c_119;
    314 
    315 static Expr _c_120;
    316 
    317 static Expr _c_121;
    318 
    319 static Expr _c_122;
    320 
    321 static Expr _c_123;
    322 
    323 static Expr _c_124;
    324 
    325 static Expr _c_126;
    326 
    327 static Expr _c_125;
    328 
    329 static Expr _c_127;
    330 
    331 static Expr _c_128;
    332 
    333 static Expr _c_132;
    334 
    335 static Expr _c_130;
    336 
    337 static Expr _c_131;
    338 
    339 static Expr _c_134;
    340 
    341 static Expr _c_133;
    342 
    343 static Expr _c_135;
    344 
    345 static Expr _c_136;
    346 
    347 static Expr _c_137;
    348 
    349 static Expr _c_138;
    350 
    351 static Expr _c_139;
    352 
    353 static Expr _c_140;
    354 
    355 static Expr _c_141;
    356 
    357 static Expr _c_142;
    358 
    359 static Expr _c_143;
    360 
    361 static Expr _c_145;
    362 
    363 static Expr _c_146;
    364 
    365 static Expr _c_147;
    366 
    367 static Expr _c_148;
    368372
    369373RF_FUNC (RFP_m_ASAIL_m_To_m_CPP, (RF_ARG _v_arg1, _v_arg2;;), (RF_RES _v_res1;;))
     
    14441448          Expr _ve_cpp_m_name;
    14451449          RF_CALL (CppMangle::Rfp2Cpp, _ve_name, _ve_cpp_m_name);
    1446           Expr _v_To_m_Lower1;
    1447           RF_CALL (Convert::To_m_Lower, _ve_2, _v_To_m_Lower1);
    1448           RF_CALL (Box::Put, (Const_m_Exprs, (_ve_cpp_m_name + (_c_66 + _vs_1 + _v_To_m_Lower1 + _c_65 + _ve_name + _c_64) ()) ()), /*void*/);
     1450          {
     1451            {
     1452              if (!_vs_tag.term_eq (_c_64, 0))
     1453              {
     1454                goto _block9__branch1;
     1455              }
     1456              RF_CALL (Box::Put, (Const_m_Exprs, (_ve_cpp_m_name + (_c_66 + _ve_name + _c_65) ()) ()), /*void*/);
     1457              goto _block9;
     1458            }
     1459          _block9__branch1: {}
     1460            Expr _v_To_m_Lower1;
     1461            RF_CALL (Convert::To_m_Lower, _ve_2, _v_To_m_Lower1);
     1462            RF_CALL (Box::Put, (Const_m_Exprs, (_ve_cpp_m_name + (_c_68 + _vs_1 + _v_To_m_Lower1 + _c_67 + _ve_name + _c_65) ()) ()), /*void*/);
     1463          }
     1464        _block9: {}
    14491465          Expr _v_Namespace_m_Control3;
    14501466          RF_CALL (Namespace_m_Control, _ve_qualifiers, _v_Namespace_m_Control3);
     
    14631479            goto _block2__branch24;
    14641480          }
    1465           if (!_c_67.term_eq (_v_deref__item21, 0))
     1481          if (!_c_69.term_eq (_v_deref__item21, 0))
    14661482          {
    14671483            goto _block2__branch24;
     
    14751491          Expr _v_Rfp2Cpp19;
    14761492          RF_CALL (CppMangle::Rfp2Cpp, _ve_name, _v_Rfp2Cpp19);
    1477           _ve_cpp_m_item = (_v_Namespace_m_Control4 + (_c_68 + _v_Rfp2Cpp19 + _c_9) ());
     1493          _ve_cpp_m_item = (_v_Namespace_m_Control4 + (_c_70 + _v_Rfp2Cpp19 + _c_9) ());
    14781494          goto _block2;
    14791495        }
     
    14891505            goto _block2__branch25;
    14901506          }
    1491           if (!_c_69.term_eq (_v_deref__item22, 0))
     1507          if (!_c_71.term_eq (_v_deref__item22, 0))
    14921508          {
    14931509            goto _block2__branch25;
     
    15011517          Expr _v_Rfp2Cpp20;
    15021518          RF_CALL (CppMangle::Rfp2Cpp, _ve_name, _v_Rfp2Cpp20);
    1503           _ve_cpp_m_item = (_v_Namespace_m_Control5 + (_c_70 + _v_Rfp2Cpp20 + _c_4) ());
     1519          _ve_cpp_m_item = (_v_Namespace_m_Control5 + (_c_72 + _v_Rfp2Cpp20 + _c_4) ());
    15041520          goto _block2;
    15051521        }
     
    15491565        RF_CALL (Name_m_To_m_CPP, _vt_name, _v_Name_m_To_m_CPP1);
    15501566        Expr _v_Args_m_To_m_CPP3;
    1551         RF_CALL (Args_m_To_m_CPP, (empty, _c_71, _ve_exprs), _v_Args_m_To_m_CPP3);
     1567        RF_CALL (Args_m_To_m_CPP, (empty, _c_73, _ve_exprs), _v_Args_m_To_m_CPP3);
    15521568        Expr _v_Args_m_To_m_CPP4;
    15531569        RF_CALL (Args_m_To_m_CPP, (empty, _c_14, _ve_ress), _v_Args_m_To_m_CPP4);
    1554         _ve_cpp_m_item = (_c_72 + _vs_call + _c_48 + _v_Name_m_To_m_CPP1 + _c_18 + _v_Args_m_To_m_CPP3 + _c_18 + _v_Args_m_To_m_CPP4 + _c_4) ();
     1570        _ve_cpp_m_item = (_c_74 + _vs_call + _c_48 + _v_Name_m_To_m_CPP1 + _c_18 + _v_Args_m_To_m_CPP3 + _c_18 + _v_Args_m_To_m_CPP4 + _c_4) ();
    15551571      }
    15561572    _block2: {}
     
    15971613      }
    15981614      uintptr_t _v_len__expr = (_v_len3 - _v_len4);
    1599       if (!_c_73.term_eq (_v_deref__expr_m_all, 0))
     1615      if (!_c_75.term_eq (_v_deref__expr_m_all, 0))
    16001616      {
    16011617        goto _block1__branch2;
     
    17171733      }
    17181734      uintptr_t _v_len__expr5 = (_v_len19 - _v_len20);
    1719       if (!_c_74.term_eq (_v_deref__expr_m_all5, 0))
     1735      if (!_c_76.term_eq (_v_deref__expr_m_all5, 0))
    17201736      {
    17211737        goto _block1__branch6;
     
    17471763      }
    17481764      uintptr_t _v_len__args = (_v_len23 - _v_len24);
    1749       if (!_c_75.term_eq (_v_deref__expr_m_all6, 0))
     1765      if (!_c_77.term_eq (_v_deref__expr_m_all6, 0))
    17501766      {
    17511767        goto _block1__branch7;
     
    17771793      }
    17781794      uintptr_t _v_len__args2 = (_v_len27 - _v_len28);
    1779       if (!_c_76.term_eq (_v_deref__expr_m_all7, 0))
     1795      if (!_c_78.term_eq (_v_deref__expr_m_all7, 0))
    17801796      {
    17811797        goto _block1__branch8;
     
    18071823      }
    18081824      uintptr_t _v_len__args3 = (_v_len31 - _v_len32);
    1809       if (!_c_77.term_eq (_v_deref__expr_m_all8, 0))
     1825      if (!_c_79.term_eq (_v_deref__expr_m_all8, 0))
    18101826      {
    18111827        goto _block1__branch9;
     
    18691885        goto _block1__branch1;
    18701886      }
    1871       _v_res1 = _c_78;
     1887      _v_res1 = _c_80;
    18721888      goto _block1;
    18731889    }
     
    18861902    RF_CALL (List::Paren, _v_arg1, _v_Paren1);
    18871903    Expr _v_Infix_m_To_m_CPP1;
    1888     RF_CALL (Infix_m_To_m_CPP, (_c_79, _c_80, _v_Paren1), _v_Infix_m_To_m_CPP1);
    1889     _v_res1 = (_c_81 + _v_Infix_m_To_m_CPP1 + _c_17);
     1904    RF_CALL (Infix_m_To_m_CPP, (_c_81, _c_82, _v_Paren1), _v_Infix_m_To_m_CPP1);
     1905    _v_res1 = (_c_83 + _v_Infix_m_To_m_CPP1 + _c_17);
    18901906  }
    18911907_block1: {}
     
    19111927      }
    19121928      uintptr_t _v_len__expr = (_v_len1 - _v_len2);
    1913       if (!_c_73.term_eq (_v_deref__arg1, 0))
     1929      if (!_c_75.term_eq (_v_deref__arg1, 0))
    19141930      {
    19151931        goto _block1__branch1;
     
    19181934      Expr _v_Expr_m_Ref_m_To_m_CPP1;
    19191935      RF_CALL (Expr_m_Ref_m_To_m_CPP, _ve_expr, _v_Expr_m_Ref_m_To_m_CPP1);
    1920       _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP1 + _c_82);
     1936      _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP1 + _c_84);
    19211937      goto _block1;
    19221938    }
     
    19461962      Expr _v_Expr_m_Ref_m_To_m_CPP2;
    19471963      RF_CALL (Expr_m_Ref_m_To_m_CPP, _ve_expr, _v_Expr_m_Ref_m_To_m_CPP2);
    1948       _v_res1 = (_c_83 + _v_Expr_m_Ref_m_To_m_CPP2 + _c_17);
     1964      _v_res1 = (_c_85 + _v_Expr_m_Ref_m_To_m_CPP2 + _c_17);
    19491965      goto _block1;
    19501966    }
     
    19892005      Expr _v_Expr_m_Int_m_To_m_CPP1;
    19902006      RF_CALL (Expr_m_Int_m_To_m_CPP, _ve_pos, _v_Expr_m_Int_m_To_m_CPP1);
    1991       _v_res1 = (_c_83 + _v_Expr_m_Ref_m_To_m_CPP3 + _c_18 + _v_Expr_m_Int_m_To_m_CPP1 + _c_17);
     2007      _v_res1 = (_c_85 + _v_Expr_m_Ref_m_To_m_CPP3 + _c_18 + _v_Expr_m_Int_m_To_m_CPP1 + _c_17);
    19922008      goto _block1;
    19932009    }
     
    20472063      Expr _v_Expr_m_Int_m_To_m_CPP3;
    20482064      RF_CALL (Expr_m_Int_m_To_m_CPP, _ve_len, _v_Expr_m_Int_m_To_m_CPP3);
    2049       _v_res1 = (_c_83 + _v_Expr_m_Ref_m_To_m_CPP4 + _c_18 + _v_Expr_m_Int_m_To_m_CPP2 + _c_18 + _v_Expr_m_Int_m_To_m_CPP3 + _c_17);
     2065      _v_res1 = (_c_85 + _v_Expr_m_Ref_m_To_m_CPP4 + _c_18 + _v_Expr_m_Int_m_To_m_CPP2 + _c_18 + _v_Expr_m_Int_m_To_m_CPP3 + _c_17);
    20502066      goto _block1;
    20512067    }
     
    20652081        goto _block1__branch5;
    20662082      }
    2067       if (!_c_84.term_eq (_v_deref__arg15, 0))
     2083      if (!_c_86.term_eq (_v_deref__arg15, 0))
    20682084      {
    20692085        goto _block1__branch5;
     
    20792095        goto _block1__branch6;
    20802096      }
    2081       if (!_c_85.term_eq (_v_arg1, 0))
     2097      if (!_c_87.term_eq (_v_arg1, 0))
    20822098      {
    20832099        goto _block1__branch6;
    20842100      }
    2085       _v_res1 = _c_86;
     2101      _v_res1 = _c_88;
    20862102      goto _block1;
    20872103    }
     
    21422158        }
    21432159      _block2__branch1: {}
    2144         RF_ERROR ((_c_87 + _vs_ObjectSymbol) ());
     2160        RF_ERROR ((_c_89 + _vs_ObjectSymbol) ());
    21452161      }
    21462162    _block2: {}
     
    21652181      }
    21662182      uintptr_t _v_len__expr = (_v_len1 - _v_len2);
    2167       if (!_c_74.term_eq (_v_deref__arg1, 0))
     2183      if (!_c_76.term_eq (_v_deref__arg1, 0))
    21682184      {
    21692185        goto _block1__branch3;
     
    21722188      Expr _v_Expr_m_Ref_m_To_m_CPP1;
    21732189      RF_CALL (Expr_m_Ref_m_To_m_CPP, _ve_expr, _v_Expr_m_Ref_m_To_m_CPP1);
    2174       _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP1 + _c_88);
     2190      _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP1 + _c_90);
    21752191      goto _block1;
    21762192    }
     
    21932209      }
    21942210      uintptr_t _v_len__args = (_v_len3 - _v_len4);
    2195       if (!_c_75.term_eq (_v_deref__arg12, 0))
     2211      if (!_c_77.term_eq (_v_deref__arg12, 0))
    21962212      {
    21972213        goto _block1__branch4;
     
    21992215      Expr _ve_args (_v_deref__arg12, 1, _v_len__args);
    22002216      Expr _v_Args_m_To_m_CPP1;
    2201       RF_CALL (Args_m_To_m_CPP, (empty, _c_89, _ve_args), _v_Args_m_To_m_CPP1);
    2202       _v_res1 = (_c_90 + _v_Args_m_To_m_CPP1 + _c_17);
     2217      RF_CALL (Args_m_To_m_CPP, (empty, _c_91, _ve_args), _v_Args_m_To_m_CPP1);
     2218      _v_res1 = (_c_92 + _v_Args_m_To_m_CPP1 + _c_17);
    22032219      goto _block1;
    22042220    }
     
    22212237      }
    22222238      uintptr_t _v_len__args2 = (_v_len5 - _v_len6);
    2223       if (!_c_76.term_eq (_v_deref__arg13, 0))
     2239      if (!_c_78.term_eq (_v_deref__arg13, 0))
    22242240      {
    22252241        goto _block1__branch5;
     
    22272243      Expr _ve_args (_v_deref__arg13, 1, _v_len__args2);
    22282244      Expr _v_Args_m_To_m_CPP2;
    2229       RF_CALL (Args_m_To_m_CPP, (empty, _c_89, _ve_args), _v_Args_m_To_m_CPP2);
    2230       _v_res1 = (_c_91 + _v_Args_m_To_m_CPP2 + _c_17);
     2245      RF_CALL (Args_m_To_m_CPP, (empty, _c_91, _ve_args), _v_Args_m_To_m_CPP2);
     2246      _v_res1 = (_c_93 + _v_Args_m_To_m_CPP2 + _c_17);
    22312247      goto _block1;
    22322248    }
     
    22492265      }
    22502266      uintptr_t _v_len__args3 = (_v_len7 - _v_len8);
    2251       if (!_c_77.term_eq (_v_deref__arg14, 0))
     2267      if (!_c_79.term_eq (_v_deref__arg14, 0))
    22522268      {
    22532269        goto _block1__branch6;
     
    22602276      Expr _ve_args (_v_deref__arg14, 2, _v_len__args3);
    22612277      Expr _v_Infix_m_To_m_CPP1;
    2262       RF_CALL (Infix_m_To_m_CPP, (_c_92, _vs_op, _ve_args), _v_Infix_m_To_m_CPP1);
    2263       _v_res1 = (_c_81 + _v_Infix_m_To_m_CPP1 + _c_17);
     2278      RF_CALL (Infix_m_To_m_CPP, (_c_94, _vs_op, _ve_args), _v_Infix_m_To_m_CPP1);
     2279      _v_res1 = (_c_83 + _v_Infix_m_To_m_CPP1 + _c_17);
    22642280      goto _block1;
    22652281    }
     
    22792295        goto _block1__branch7;
    22802296      }
    2281       if (!_c_84.term_eq (_v_deref__arg15, 0))
     2297      if (!_c_86.term_eq (_v_deref__arg15, 0))
    22822298      {
    22832299        goto _block1__branch7;
     
    23152331    RF_CALL (List::Paren, _v_arg1, _v_Paren1);
    23162332    Expr _v_Infix_m_To_m_CPP2;
    2317     RF_CALL (Infix_m_To_m_CPP, (_c_92, _c_80, _v_Paren1), _v_Infix_m_To_m_CPP2);
    2318     _v_res1 = (_c_81 + _v_Infix_m_To_m_CPP2 + _c_17);
     2333    RF_CALL (Infix_m_To_m_CPP, (_c_94, _c_82, _v_Paren1), _v_Infix_m_To_m_CPP2);
     2334    _v_res1 = (_c_83 + _v_Infix_m_To_m_CPP2 + _c_17);
    23192335  }
    23202336_block1: {}
     
    23702386      }
    23712387      uintptr_t _v_len__exprs = (_v_len3 - _v_len4);
    2372       if (!_c_93.term_eq (_v_deref__arg1, 0))
     2388      if (!_c_95.term_eq (_v_deref__arg1, 0))
    23732389      {
    23742390        goto _block1__branch2;
     
    23802396      RF_CALL (Name_m_To_m_CPP, _vt_name, _v_Name_m_To_m_CPP1);
    23812397      Expr _v_Args_m_To_m_CPP1;
    2382       RF_CALL (Args_m_To_m_CPP, (empty, _c_71, _ve_exprs), _v_Args_m_To_m_CPP1);
     2398      RF_CALL (Args_m_To_m_CPP, (empty, _c_73, _ve_exprs), _v_Args_m_To_m_CPP1);
    23832399      Expr _v_Args_m_To_m_CPP2;
    23842400      RF_CALL (Args_m_To_m_CPP, (empty, _c_14, _ve_ress), _v_Args_m_To_m_CPP2);
    2385       _v_res1 = (_c_94 + _v_Name_m_To_m_CPP1 + _c_18 + _v_Args_m_To_m_CPP1 + _c_18 + _v_Args_m_To_m_CPP2 + _c_17);
     2401      _v_res1 = (_c_96 + _v_Name_m_To_m_CPP1 + _c_18 + _v_Args_m_To_m_CPP1 + _c_18 + _v_Args_m_To_m_CPP2 + _c_17);
    23862402      goto _block1;
    23872403    }
     
    24162432      }
    24172433      uintptr_t _v_len__pos = (_v_len7 - _v_len8);
    2418       if (!_c_95.term_eq (_v_deref__arg12, 0))
     2434      if (!_c_97.term_eq (_v_deref__arg12, 0))
    24192435      {
    24202436        goto _block1__branch3;
     
    24262442      Expr _v_Expr_m_Int_m_To_m_CPP1;
    24272443      RF_CALL (Expr_m_Int_m_To_m_CPP, _ve_pos, _v_Expr_m_Int_m_To_m_CPP1);
    2428       _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP1 + _c_96 + _v_Expr_m_Int_m_To_m_CPP1 + _c_17);
     2444      _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP1 + _c_98 + _v_Expr_m_Int_m_To_m_CPP1 + _c_17);
    24292445      goto _block1;
    24302446    }
     
    24712487      }
    24722488      uintptr_t _v_len__pos2 = (_v_len13 - _v_len14);
    2473       if (!_c_97.term_eq (_v_deref__arg13, 0))
     2489      if (!_c_99.term_eq (_v_deref__arg13, 0))
    24742490      {
    24752491        goto _block1__branch4;
     
    24842500      Expr _v_Expr_m_Int_m_To_m_CPP3;
    24852501      RF_CALL (Expr_m_Int_m_To_m_CPP, _ve_len, _v_Expr_m_Int_m_To_m_CPP3);
    2486       _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP2 + _c_98 + _v_Expr_m_Int_m_To_m_CPP2 + _c_18 + _v_Expr_m_Int_m_To_m_CPP3 + _c_17);
     2502      _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP2 + _c_100 + _v_Expr_m_Int_m_To_m_CPP2 + _c_18 + _v_Expr_m_Int_m_To_m_CPP3 + _c_17);
    24872503      goto _block1;
    24882504    }
     
    25052521      }
    25062522      uintptr_t _v_len__expr3 = (_v_len15 - _v_len16);
    2507       if (!_c_99.term_eq (_v_deref__arg14, 0))
     2523      if (!_c_101.term_eq (_v_deref__arg14, 0))
    25082524      {
    25092525        goto _block1__branch5;
     
    25122528      Expr _v_Expr_m_Ref_m_To_m_CPP3;
    25132529      RF_CALL (Expr_m_Ref_m_To_m_CPP, _ve_expr, _v_Expr_m_Ref_m_To_m_CPP3);
    2514       _v_res1 = (_c_100 + _v_Expr_m_Ref_m_To_m_CPP3 + _c_17);
     2530      _v_res1 = (_c_102 + _v_Expr_m_Ref_m_To_m_CPP3 + _c_17);
    25152531      goto _block1;
    25162532    }
     
    25572573      }
    25582574      uintptr_t _v_len__expr22 = (_v_len21 - _v_len22);
    2559       if (!_c_101.term_eq (_v_deref__arg15, 0))
     2575      if (!_c_103.term_eq (_v_deref__arg15, 0))
    25602576      {
    25612577        goto _block1__branch6;
     
    25702586      Expr _v_Expr_m_Int_m_To_m_CPP4;
    25712587      RF_CALL (Expr_m_Int_m_To_m_CPP, _ve_pos, _v_Expr_m_Int_m_To_m_CPP4);
    2572       _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP4 + _c_102 + _v_Expr_m_Ref_m_To_m_CPP5 + _c_18 + _v_Expr_m_Int_m_To_m_CPP4 + _c_17);
     2588      _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP4 + _c_104 + _v_Expr_m_Ref_m_To_m_CPP5 + _c_18 + _v_Expr_m_Int_m_To_m_CPP4 + _c_17);
    25732589      goto _block1;
    25742590    }
     
    26152631      }
    26162632      uintptr_t _v_len__expr23 = (_v_len27 - _v_len28);
    2617       if (!_c_103.term_eq (_v_deref__arg16, 0))
     2633      if (!_c_105.term_eq (_v_deref__arg16, 0))
    26182634      {
    26192635        goto _block1__branch7;
     
    26282644      Expr _v_Expr_m_Int_m_To_m_CPP5;
    26292645      RF_CALL (Expr_m_Int_m_To_m_CPP, _ve_pos, _v_Expr_m_Int_m_To_m_CPP5);
    2630       _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP6 + _c_104 + _v_Expr_m_Ref_m_To_m_CPP7 + _c_18 + _v_Expr_m_Int_m_To_m_CPP5 + _c_17);
     2646      _v_res1 = (_v_Expr_m_Ref_m_To_m_CPP6 + _c_106 + _v_Expr_m_Ref_m_To_m_CPP7 + _c_18 + _v_Expr_m_Int_m_To_m_CPP5 + _c_17);
    26312647      goto _block1;
    26322648    }
     
    26492665      }
    26502666      uintptr_t _v_len__cond = (_v_len29 - _v_len30);
    2651       if (!_c_105.term_eq (_v_deref__arg17, 0))
     2667      if (!_c_107.term_eq (_v_deref__arg17, 0))
    26522668      {
    26532669        goto _block1__branch8;
     
    26562672      Expr _v_Cond_m_To_m_CPP1;
    26572673      RF_CALL (Cond_m_To_m_CPP, _ve_cond, _v_Cond_m_To_m_CPP1);
    2658       _v_res1 = (_c_106 + _v_Cond_m_To_m_CPP1);
     2674      _v_res1 = (_c_108 + _v_Cond_m_To_m_CPP1);
    26592675      goto _block1;
    26602676    }
     
    26772693      }
    26782694      uintptr_t _v_len__args = (_v_len31 - _v_len32);
    2679       if (!_c_77.term_eq (_v_deref__arg18, 0))
     2695      if (!_c_79.term_eq (_v_deref__arg18, 0))
    26802696      {
    26812697        goto _block1__branch9;
     
    26912707      Expr _v_Infix_m_To_m_CPP1;
    26922708      RF_CALL (Infix_m_To_m_CPP, (_v_Op_m_Arg_m_To_m_CPP1, _vs_op, _ve_args), _v_Infix_m_To_m_CPP1);
    2693       _v_res1 = (_c_81 + _v_Infix_m_To_m_CPP1 + _c_17);
     2709      _v_res1 = (_c_83 + _v_Infix_m_To_m_CPP1 + _c_17);
    26942710      goto _block1;
    26952711    }
     
    26982714    RF_CALL (List::Paren, _v_arg1, _v_Paren1);
    26992715    Expr _v_Infix_m_To_m_CPP2;
    2700     RF_CALL (Infix_m_To_m_CPP, (_c_107, _c_108, _v_Paren1), _v_Infix_m_To_m_CPP2);
    2701     _v_res1 = (_c_81 + _v_Infix_m_To_m_CPP2 + _c_17);
     2716    RF_CALL (Infix_m_To_m_CPP, (_c_109, _c_110, _v_Paren1), _v_Infix_m_To_m_CPP2);
     2717    _v_res1 = (_c_83 + _v_Infix_m_To_m_CPP2 + _c_17);
    27022718  }
    27032719_block1: {}
     
    27412757            goto _block2__branch1;
    27422758          }
    2743           uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_345_m_28 = (_v_len5 - _v_len6);
     2759          uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_350_m_28 = (_v_len5 - _v_len6);
    27442760          uintptr_t _v_len7 = _ve_arg.get_len ();
    27452761          uintptr_t _v_len8 = 0;
     
    27482764            goto _block2__branch1;
    27492765          }
    2750           uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_345_m_16 = (_v_len7 - _v_len8);
    2751           Expr _vv__e__e_tmp_m_rfp__asailrf_m_345_m_16 (_ve_arg, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_345_m_16);
    2752           Expr _vv__e__e_tmp_m_rfp__asailrf_m_345_m_28 (_ve_rest, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_345_m_28);
     2766          uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_350_m_16 = (_v_len7 - _v_len8);
     2767          Expr _vv__e__e_tmp_m_rfp__asailrf_m_350_m_16 (_ve_arg, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_350_m_16);
     2768          Expr _vv__e__e_tmp_m_rfp__asailrf_m_350_m_28 (_ve_rest, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_350_m_28);
    27532769          _v_res1 = (_ve_arg + _c_45 + _vs_op + _c_45 + _ve_rest);
    27542770          goto _block2;
     
    27712787      {
    27722788        {
    2773           if (!_vs_op.term_eq (_c_108, 0))
     2789          if (!_vs_op.term_eq (_c_110, 0))
    27742790          {
    27752791            goto _block2__branch1;
     
    27782794        }
    27792795      _block2__branch1: {}
    2780         if (!_vs_op.term_eq (_c_109, 0))
     2796        if (!_vs_op.term_eq (_c_111, 0))
    27812797        {
    27822798          goto _block1__branch1;
     
    27842800      }
    27852801    _block2: {}
    2786       _v_res1 = _c_107;
     2802      _v_res1 = _c_109;
    27872803      goto _block1;
    27882804    }
     
    27902806    {
    27912807      {
    2792         if (!_vs_op.term_eq (_c_110, 0))
     2808        if (!_vs_op.term_eq (_c_112, 0))
    27932809        {
    27942810          goto _block3__branch1;
     
    27982814    _block3__branch1: {}
    27992815      {
    2800         if (!_vs_op.term_eq (_c_111, 0))
     2816        if (!_vs_op.term_eq (_c_113, 0))
    28012817        {
    28022818          goto _block3__branch2;
     
    28062822    _block3__branch2: {}
    28072823      {
    2808         if (!_vs_op.term_eq (_c_112, 0))
     2824        if (!_vs_op.term_eq (_c_114, 0))
    28092825        {
    28102826          goto _block3__branch3;
     
    28142830    _block3__branch3: {}
    28152831      {
    2816         if (!_vs_op.term_eq (_c_113, 0))
     2832        if (!_vs_op.term_eq (_c_115, 0))
    28172833        {
    28182834          goto _block3__branch4;
     
    28222838    _block3__branch4: {}
    28232839      {
    2824         if (!_vs_op.term_eq (_c_114, 0))
     2840        if (!_vs_op.term_eq (_c_116, 0))
    28252841        {
    28262842          goto _block3__branch5;
     
    28302846    _block3__branch5: {}
    28312847      {
    2832         if (!_vs_op.term_eq (_c_115, 0))
     2848        if (!_vs_op.term_eq (_c_117, 0))
    28332849        {
    28342850          goto _block3__branch6;
     
    28382854    _block3__branch6: {}
    28392855      {
    2840         if (!_vs_op.term_eq (_c_80, 0))
     2856        if (!_vs_op.term_eq (_c_82, 0))
    28412857        {
    28422858          goto _block3__branch7;
     
    28462862    _block3__branch7: {}
    28472863      {
    2848         if (!_vs_op.term_eq (_c_116, 0))
     2864        if (!_vs_op.term_eq (_c_118, 0))
    28492865        {
    28502866          goto _block3__branch8;
     
    28542870    _block3__branch8: {}
    28552871      {
    2856         if (!_vs_op.term_eq (_c_117, 0))
     2872        if (!_vs_op.term_eq (_c_119, 0))
    28572873        {
    28582874          goto _block3__branch9;
     
    28622878    _block3__branch9: {}
    28632879      {
    2864         if (!_vs_op.term_eq (_c_118, 0))
     2880        if (!_vs_op.term_eq (_c_120, 0))
    28652881        {
    28662882          goto _block3__branch10;
     
    28692885      }
    28702886    _block3__branch10: {}
    2871       if (!_vs_op.term_eq (_c_119, 0))
     2887      if (!_vs_op.term_eq (_c_121, 0))
    28722888      {
    28732889        RF_FUNC_ERROR (unexpected_fail);
     
    28752891    }
    28762892  _block3: {}
    2877     _v_res1 = _c_92;
     2893    _v_res1 = _c_94;
    28782894  }
    28792895_block1: {}
     
    29082924      }
    29092925      uintptr_t _v_len__expr = (_v_len1 - _v_len2);
    2910       if (!_c_120.term_eq (_v_deref__arg1, 0))
     2926      if (!_c_122.term_eq (_v_deref__arg1, 0))
    29112927      {
    29122928        goto _block1__branch2;
     
    29152931      Expr _v_Expr_m_Ref_m_To_m_CPP1;
    29162932      RF_CALL (Expr_m_Ref_m_To_m_CPP, _ve_expr, _v_Expr_m_Ref_m_To_m_CPP1);
    2917       _v_res1 = (_c_100 + _v_Expr_m_Ref_m_To_m_CPP1 + _c_121);
     2933      _v_res1 = (_c_102 + _v_Expr_m_Ref_m_To_m_CPP1 + _c_123);
    29182934      goto _block1;
    29192935    }
     
    29352951    }
    29362952    uintptr_t _v_len__expr2 = (_v_len3 - _v_len4);
    2937     if (!_c_122.term_eq (_v_deref__arg12, 0))
     2953    if (!_c_124.term_eq (_v_deref__arg12, 0))
    29382954    {
    29392955      RF_FUNC_ERROR (unexpected_fail);
     
    29422958    Expr _v_Expr_m_Ref_m_To_m_CPP2;
    29432959    RF_CALL (Expr_m_Ref_m_To_m_CPP, _ve_expr, _v_Expr_m_Ref_m_To_m_CPP2);
    2944     _v_res1 = (_c_100 + _v_Expr_m_Ref_m_To_m_CPP2 + _c_123);
     2960    _v_res1 = (_c_102 + _v_Expr_m_Ref_m_To_m_CPP2 + _c_125);
    29452961  }
    29462962_block1: {}
     
    29542970        goto _block1__branch1;
    29552971      }
    2956       _v_res1 = _c_78;
     2972      _v_res1 = _c_80;
    29572973      goto _block1;
    29582974    }
     
    29893005      Expr _v_Rfp2Cpp1;
    29903006      RF_CALL (CppMangle::Rfp2Cpp, _vt_name, _v_Rfp2Cpp1);
    2991       _v_res1 = (_c_83 + _v_Rfp2Cpp1 + _c_18 + _vs_pos + _c_18 + _vs_len + _c_17);
     3007      _v_res1 = (_c_85 + _v_Rfp2Cpp1 + _c_18 + _vs_pos + _c_18 + _vs_len + _c_17);
    29923008      goto _block1;
    29933009    }
    29943010  _block1__branch2: {}
    29953011    Expr _v_Const_m_Expr_m_Aux1;
    2996     RF_CALL (Const_m_Expr_m_Aux, (_c_124 + _v_arg1), _v_Const_m_Expr_m_Aux1);
     3012    RF_CALL (Const_m_Expr_m_Aux, (_c_126 + _v_arg1), _v_Const_m_Expr_m_Aux1);
    29973013    {
    29983014      {
     
    30043020        }
    30053021        uintptr_t _v_len__cpp_m_expr = (_v_len1 - _v_len2);
    3006         if (!_c_125.eq (_v_Const_m_Expr_m_Aux1, 0))
     3022        if (!_c_127.eq (_v_Const_m_Expr_m_Aux1, 0))
    30073023        {
    30083024          goto _block2__branch1;
     
    30823098        goto _block1__branch2;
    30833099      }
    3084       uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_383_m_14 = (_v_len7 - _v_len8);
    3085       Expr _vv__e__e_tmp_m_rfp__asailrf_m_383_m_14 (_ve_accum, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_383_m_14);
     3100      uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_388_m_14 = (_v_len7 - _v_len8);
     3101      Expr _vv__e__e_tmp_m_rfp__asailrf_m_388_m_14 (_ve_accum, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_388_m_14);
    30863102      Expr _v_Const_m_Expr_m_Aux1;
    3087       RF_CALL (Const_m_Expr_m_Aux, (_c_124 + _ve_expr), _v_Const_m_Expr_m_Aux1);
    3088       _v_res1 = (_c_126 + _ve_accum + _c_64 + _v_Const_m_Expr_m_Aux1);
     3103      RF_CALL (Const_m_Expr_m_Aux, (_c_126 + _ve_expr), _v_Const_m_Expr_m_Aux1);
     3104      _v_res1 = (_c_128 + _ve_accum + _c_65 + _v_Const_m_Expr_m_Aux1);
    30893105      goto _block1;
    30903106    }
     
    31153131          }
    31163132          uintptr_t _v_len__paren_m_expr = (_v_len11 - _v_len12);
    3117           if (!_c_73.term_eq (_v_deref__item, 0))
     3133          if (!_c_75.term_eq (_v_deref__item, 0))
    31183134          {
    31193135            goto _block2__branch1;
     
    31223138          Expr _v_Const_m_Expr_m_To_m_CPP1;
    31233139          RF_CALL (Const_m_Expr_m_To_m_CPP, _ve_paren_m_expr, _v_Const_m_Expr_m_To_m_CPP1);
    3124           _ve_cpp_m_item = (_c_128 + _v_Const_m_Expr_m_To_m_CPP1 + _c_127);
     3140          _ve_cpp_m_item = (_c_130 + _v_Const_m_Expr_m_To_m_CPP1 + _c_129);
    31253141          goto _block2;
    31263142        }
     
    31363152            goto _block2__branch2;
    31373153          }
    3138           if (!_c_84.term_eq (_v_deref__item2, 0))
     3154          if (!_c_86.term_eq (_v_deref__item2, 0))
    31393155          {
    31403156            goto _block2__branch2;
     
    31433159          Expr _v_Name_m_To_m_CPP1;
    31443160          RF_CALL (Name_m_To_m_CPP, _vt_name, _v_Name_m_To_m_CPP1);
    3145           _ve_cpp_m_item = (_c_125 + _v_Name_m_To_m_CPP1);
     3161          _ve_cpp_m_item = (_c_127 + _v_Name_m_To_m_CPP1);
    31463162          goto _block2;
    31473163        }
     
    31593175            goto _block2__branch3;
    31603176          }
    3161           uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_391_m_14 = (_v_len13 - _v_len14);
     3177          uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_396_m_14 = (_v_len13 - _v_len14);
    31623178          if (!_c_62.term_eq (_v_deref__item3, 0))
    31633179          {
    31643180            goto _block2__branch3;
    31653181          }
    3166           Expr _ve__e__e_tmp_m_rfp__asailrf_m_391_m_14 (_v_deref__item3, 1, _v_len___e__e_tmp_m_rfp__asailrf_m_391_m_14);
     3182          Expr _ve__e__e_tmp_m_rfp__asailrf_m_396_m_14 (_v_deref__item3, 1, _v_len___e__e_tmp_m_rfp__asailrf_m_396_m_14);
    31673183          Expr _v_Rfp2Cpp1;
    31683184          RF_CALL (CppMangle::Rfp2Cpp, _vt_item, _v_Rfp2Cpp1);
    3169           _ve_cpp_m_item = (_c_125 + _v_Rfp2Cpp1);
     3185          _ve_cpp_m_item = (_c_127 + _v_Rfp2Cpp1);
    31703186          goto _block2;
    31713187        }
     
    31883204          Expr _v_Name_m_To_m_CPP2;
    31893205          RF_CALL (Name_m_To_m_CPP, _vt_name, _v_Name_m_To_m_CPP2);
    3190           _ve_cpp_m_item = (_c_129 + _v_Name_m_To_m_CPP2 + _c_17);
     3206          _ve_cpp_m_item = (_c_131 + _v_Name_m_To_m_CPP2 + _c_17);
    31913207          goto _block2;
    31923208        }
     
    32053221            Expr _v__q_1;
    32063222            RF_CALL (Box::_q_, Int, _v__q_1);
    3207             _ve_cpp_m_item = (_c_131 + _v__q_1 + _c_130 + _vs_sym + _c_64);
     3223            _ve_cpp_m_item = (_c_133 + _v__q_1 + _c_132 + _vs_sym + _c_65);
    32083224            goto _block3;
    32093225          }
     
    32153231          Expr _v_Symbol_m_To_m_CPP2;
    32163232          RF_CALL (Symbol_m_To_m_CPP, _vs_sym, _v_Symbol_m_To_m_CPP2);
    3217           _ve_cpp_m_item = (_c_132 + _v_Symbol_m_To_m_CPP2 + _c_64);
     3233          _ve_cpp_m_item = (_c_134 + _v_Symbol_m_To_m_CPP2 + _c_65);
    32183234        }
    32193235      _block3: {}
     
    32213237    _block2: {}
    32223238      Expr _v_Const_m_Expr_m_Aux2;
    3223       RF_CALL (Const_m_Expr_m_Aux, (_c_124 + _ve_rest), _v_Const_m_Expr_m_Aux2);
     3239      RF_CALL (Const_m_Expr_m_Aux, (_c_126 + _ve_rest), _v_Const_m_Expr_m_Aux2);
    32243240      _v_res1 = (_ve_cpp_m_item + _v_Const_m_Expr_m_Aux2);
    32253241      goto _block1;
     
    32623278    {
    32633279      {
    3264         if (!_vs_char.term_eq (_c_133, 0))
     3280        if (!_vs_char.term_eq (_c_135, 0))
    32653281        {
    32663282          goto _block3__branch1;
    3267         }
    3268         _ve_cpp_m_char = _c_134;
    3269         goto _block3;
    3270       }
    3271     _block3__branch1: {}
    3272       {
    3273         if (!_vs_char.term_eq (_c_135, 0))
    3274         {
    3275           goto _block3__branch2;
    32763283        }
    32773284        _ve_cpp_m_char = _c_136;
    32783285        goto _block3;
    32793286      }
    3280     _block3__branch2: {}
     3287    _block3__branch1: {}
    32813288      {
    32823289        if (!_vs_char.term_eq (_c_137, 0))
    32833290        {
    3284           goto _block3__branch3;
     3291          goto _block3__branch2;
    32853292        }
    32863293        _ve_cpp_m_char = _c_138;
    32873294        goto _block3;
    32883295      }
    3289     _block3__branch3: {}
     3296    _block3__branch2: {}
    32903297      {
    32913298        if (!_vs_char.term_eq (_c_139, 0))
    32923299        {
    3293           goto _block3__branch4;
     3300          goto _block3__branch3;
    32943301        }
    32953302        _ve_cpp_m_char = _c_140;
    32963303        goto _block3;
    32973304      }
    3298     _block3__branch4: {}
     3305    _block3__branch3: {}
    32993306      {
    33003307        if (!_vs_char.term_eq (_c_141, 0))
    33013308        {
    3302           goto _block3__branch5;
     3309          goto _block3__branch4;
    33033310        }
    33043311        _ve_cpp_m_char = _c_142;
    33053312        goto _block3;
    33063313      }
     3314    _block3__branch4: {}
     3315      {
     3316        if (!_vs_char.term_eq (_c_143, 0))
     3317        {
     3318          goto _block3__branch5;
     3319        }
     3320        _ve_cpp_m_char = _c_144;
     3321        goto _block3;
     3322      }
    33073323    _block3__branch5: {}
    33083324      if (!_vs_char.symbol_at (0))
     
    33103326        RF_FUNC_ERROR (unexpected_fail);
    33113327      }
    3312       Expr _vs__e__e_tmp_m_rfp__asailrf_m_418_m_8 (_vs_char, 0, 1);
     3328      Expr _vs__e__e_tmp_m_rfp__asailrf_m_423_m_8 (_vs_char, 0, 1);
    33133329      _ve_cpp_m_char = _vs_char;
    33143330    }
     
    33453361      }
    33463362      Expr _vv_prefix (_v_deref__compose1, 0, _v_len__prefix);
    3347       _v_res1 = _c_143;
     3363      _v_res1 = _c_145;
    33483364      goto _block1;
    33493365    }
     
    33553371      }
    33563372      Expr _v_compose2 ((_v_arg1 () + _v_arg2 + _v_arg3));
    3357       if (!_c_144.eq (_v_compose2, 0))
     3373      if (!_c_146.eq (_v_compose2, 0))
    33583374      {
    33593375        goto _block1__branch2;
    33603376      }
    3361       _v_res1 = _c_145;
     3377      _v_res1 = _c_147;
    33623378      goto _block1;
    33633379    }
     
    33813397      }
    33823398      uintptr_t _v_len__arg = (_v_len3 - _v_len4);
    3383       if (!_c_144.eq (_v_compose3, 0))
     3399      if (!_c_146.eq (_v_compose3, 0))
    33843400      {
    33853401        goto _block1__branch3;
     
    34083424      }
    34093425      uintptr_t _v_len__prefix2 = (_v_len5 - _v_len6);
    3410       if (!_c_71.term_eq (_v_compose4, 1))
     3426      if (!_c_73.term_eq (_v_compose4, 1))
    34113427      {
    34123428        goto _block1__branch4;
    34133429      }
    34143430      Expr _ve_prefix (_v_deref__compose4, 0, _v_len__prefix2);
    3415       _v_res1 = _c_145;
     3431      _v_res1 = _c_147;
    34163432      goto _block1;
    34173433    }
     
    34473463      }
    34483464      uintptr_t _v_len__prefix3 = (_v_len9 - _v_len10);
    3449       if (!_c_71.term_eq (_v_compose5, 1))
     3465      if (!_c_73.term_eq (_v_compose5, 1))
    34503466      {
    34513467        goto _block1__branch5;
     
    34693485          {
    34703486            Expr _v_compose6 ((_v_arg1 () + _v_arg2));
    3471             if (!_c_71.term_eq (_v_compose6, 1))
     3487            if (!_c_73.term_eq (_v_compose6, 1))
    34723488            {
    34733489              goto _block2__branch1;
    34743490            }
    3475             Expr _vt__e__e_tmp_m_rfp__asailrf_m_449_m_8 (_v_compose6, 0, 1);
    3476             _v_res1 = (_c_81 + _ve_cpp_m_args + _c_17);
     3491            Expr _vt__e__e_tmp_m_rfp__asailrf_m_454_m_8 (_v_compose6, 0, 1);
     3492            _v_res1 = (_c_83 + _ve_cpp_m_args + _c_17);
    34773493            goto _block2;
    34783494          }
     
    34803496          {
    34813497            Expr _v_compose7 ((_v_arg1 () + _v_arg2));
    3482             if (!_c_144.eq (_v_compose7, 0))
     3498            if (!_c_146.eq (_v_compose7, 0))
    34833499            {
    34843500              goto _block2__branch2;
    34853501            }
    3486             _v_res1 = (_c_81 + _ve_cpp_m_args + _c_17);
     3502            _v_res1 = (_c_83 + _ve_cpp_m_args + _c_17);
    34873503            goto _block2;
    34883504          }
     
    35013517              goto _block2__branch3;
    35023518            }
    3503             uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_451_m_9 = (_v_len11 - _v_len12);
     3519            uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_456_m_9 = (_v_len11 - _v_len12);
    35043520            if (!_c_14.term_eq (_v_compose8, 1))
    35053521            {
    35063522              goto _block2__branch3;
    35073523            }
    3508             Expr _vv__e__e_tmp_m_rfp__asailrf_m_451_m_9 (_v_deref__compose8, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_451_m_9);
    3509             _v_res1 = (_c_81 + _v_arg1 + _ve_cpp_m_args + _c_146);
     3524            Expr _vv__e__e_tmp_m_rfp__asailrf_m_456_m_9 (_v_deref__compose8, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_456_m_9);
     3525            _v_res1 = (_c_83 + _v_arg1 + _ve_cpp_m_args + _c_148);
    35103526            goto _block2;
    35113527          }
     
    35173533            RF_FUNC_ERROR (unexpected_fail);
    35183534          }
    3519           uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_452_m_8 = (_v_len13 - _v_len14);
     3535          uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_457_m_8 = (_v_len13 - _v_len14);
    35203536          Expr _v_compose9 ((_v_arg1 () + _v_arg2));
    3521           Expr _ve__e__e_tmp_m_rfp__asailrf_m_452_m_8 (_v_compose9, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_452_m_8);
     3537          Expr _ve__e__e_tmp_m_rfp__asailrf_m_457_m_8 (_v_compose9, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_457_m_8);
    35223538          _v_res1 = (_v_arg1 + _ve_cpp_m_args);
    35233539        }
     
    35563572            goto _block4__branch1;
    35573573          }
    3558           uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_438_m_21 = (_v_len19 - _v_len20);
    3559           Expr _vv__e__e_tmp_m_rfp__asailrf_m_438_m_21 (_ve_rest, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_438_m_21);
     3574          uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_443_m_21 = (_v_len19 - _v_len20);
     3575          Expr _vv__e__e_tmp_m_rfp__asailrf_m_443_m_21 (_ve_rest, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_443_m_21);
    35603576          _ve_comma = _c_18;
    35613577          goto _block4;
     
    35793595      _block5__branch1: {}
    35803596        {
    3581           if (!_v_arg2.term_eq (_c_71, 0))
     3597          if (!_v_arg2.term_eq (_c_73, 0))
    35823598          {
    35833599            goto _block5__branch2;
     
    35903606        }
    35913607      _block5__branch2: {}
    3592         if (!_v_arg2.term_eq (_c_89, 0))
     3608        if (!_v_arg2.term_eq (_c_91, 0))
    35933609        {
    35943610          RF_FUNC_ERROR (unexpected_fail);
     
    36633679          goto _block2__branch1;
    36643680        }
    3665         uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_467_m_31 = (_v_len1 - _v_len2);
    3666         Expr _vv__e__e_tmp_m_rfp__asailrf_m_467_m_31 (_v__q_2, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_467_m_31);
     3681        uintptr_t _v_len___e__e_tmp_m_rfp__asailrf_m_472_m_31 = (_v_len1 - _v_len2);
     3682        Expr _vv__e__e_tmp_m_rfp__asailrf_m_472_m_31 (_v__q_2, 0, _v_len___e__e_tmp_m_rfp__asailrf_m_472_m_31);
    36673683        _ve_close_m_namespace = _c_3;
    36683684        goto _block2;
     
    36753691    Expr _v_Rfp2Cpp1;
    36763692    RF_CALL (CppMangle::Rfp2Cpp, _ve_qualifiers, _v_Rfp2Cpp1);
    3677     _v_res1 = (_ve_close_m_namespace + (_c_148 + _v_Rfp2Cpp1 + _c_147) ());
     3693    _v_res1 = (_ve_close_m_namespace + (_c_150 + _v_Rfp2Cpp1 + _c_149) ());
    36783694  }
    36793695_block1: {}
     
    36873703static void init_ ()
    36883704{
    3689   Int = new rftype::StaticObject<rftype::Box>(L"Int");
    3690   Module_m_Name = new rftype::StaticObject<rftype::Box>(L"Module-Name");
    3691   Current_m_Namespace = new rftype::StaticObject<rftype::Box>(L"Current-Namespace");
    3692   Current_m_Func = new rftype::StaticObject<rftype::Box>(L"Current-Func");
    3693   Entry = new rftype::StaticObject<rftype::Box>(L"Entry");
    3694   Entry_m_Name = new rftype::StaticObject<rftype::Box>(L"Entry-Name");
    3695   Const_m_Exprs = new rftype::StaticObject<rftype::Box>(L"Const-Exprs");
     3705  Int = Expr::create_sym< NamedObject<BoxContents> >(L"Int");
     3706  Module_m_Name = Expr::create_sym< NamedObject<BoxContents> >(L"Module-Name");
     3707  Current_m_Namespace = Expr::create_sym< NamedObject<BoxContents> >(L"Current-Namespace");
     3708  Current_m_Func = Expr::create_sym< NamedObject<BoxContents> >(L"Current-Func");
     3709  Entry = Expr::create_sym< NamedObject<BoxContents> >(L"Entry");
     3710  Entry_m_Name = Expr::create_sym< NamedObject<BoxContents> >(L"Entry-Name");
     3711  Const_m_Exprs = Expr::create_sym< NamedObject<BoxContents> >(L"Const-Exprs");
    36963712  _c_0 = Expr::create<Word>("INT");
    36973713  _c_1 = Expr::create<Word>("Integer");
    36983714  _c_2 = Expr::create<Word>("Main");
    3699   _c_149 = Char::create_expr ("static AtStart init_registrator_ (&init_);");
     3715  _c_151 = Char::create_expr ("static AtStart init_registrator_ (&init_);");
    37003716  _c_25 = Char::create_expr (": {}");
    37013717  _c_6 = Expr (_c_25, 3, 1);
    3702   _c_8 = (_c_149) () + (_c_6) ();
     3718  _c_8 = (_c_151) () + (_c_6) ();
    37033719  _c_3 = Expr (_c_8, 1, 1);
    3704   _c_4 = Expr (_c_149, 40, 2);
     3720  _c_4 = Expr (_c_151, 40, 2);
    37053721  _c_5 = Char::create_expr ("rfrt::Entry rf_entry (");
    37063722  _c_7 = Char::create_expr ("static void init_ ()\n{");
    37073723  _c_9 = Expr (_c_4, 1, 1);
    37083724  _c_10 = Char::create_expr (" = ");
    3709   _c_150 = Char::create_expr ("using namespace rfrt;");
    3710   _c_11 = (Char::create_expr ("namespace refal\n{")) () + (_c_150) ();
     3725  _c_152 = Char::create_expr ("using namespace rfrt;");
     3726  _c_11 = (Char::create_expr ("namespace refal\n{")) () + (_c_152) ();
    37113727  _c_12 = Expr::create<Word>("FUNC");
    37123728  _c_13 = Char::create_expr ("RF_ARG ");
    3713   _c_144 = (empty) () + Expr::create<Word>("Vars");
    3714   _c_14 = Expr (_c_144, 1, 1);
     3729  _c_146 = (empty) () + Expr::create<Word>("Vars");
     3730  _c_14 = Expr (_c_146, 1, 1);
    37153731  _c_15 = Char::create_expr ("RF_RES ");
    37163732  _c_16 = Char::create_expr ("RF_END");
     
    37463762  _c_47 = Expr::create<Word>("EXPR");
    37473763  _c_48 = Expr (_c_40, 6, 2);
    3748   _c_68 = Char::create_expr ("extern Expr ");
    3749   _c_49 = Expr (_c_68, 7, 5);
     3764  _c_70 = Char::create_expr ("extern Expr ");
     3765  _c_49 = Expr (_c_70, 7, 5);
    37503766  _c_50 = Expr::create<Word>("DEREF");
    37513767  _c_51 = Expr::create<Word>("SUBEXPR");
     
    37623778  _c_62 = Expr::create<Word>("STATIC");
    37633779  _c_63 = Expr::create<Word>("OBJ");
    3764   _c_64 = Char::create_expr ("\")");
    3765   _c_65 = Char::create_expr (">(L\"");
    3766   _c_66 = Char::create_expr ("new rftype::StaticObject<rftype::");
    3767   _c_67 = Expr::create<Word>("DECL-OBJ");
    3768   _c_69 = Expr::create<Word>("DECL-FUNC");
    3769   _c_70 = Char::create_expr ("RF_DECL (");
    3770   _c_71 = Expr::create<Word>("Exprs");
    3771   _c_72 = Expr (_c_16, 0, 3);
    3772   _c_73 = Expr::create<Word>("PAREN");
    3773   _c_74 = Expr::create<Word>("LENGTH");
    3774   _c_75 = Expr::create<Word>("MAX");
    3775   _c_76 = Expr::create<Word>("MIN");
    3776   _c_77 = Expr::create<Word>("INFIX");
    3777   _c_78 = Char::create_expr ("empty");
    3778   _c_79 = Expr (Term_m_Ref_m_To_m_CPP);
    3779   _c_80 = Expr::create<Word>("+");
    3780   _c_81 = Expr (_c_48, 1, 1);
    3781   _c_82 = Expr (_c_53, 5, 3);
    3782   _c_129 = Char::create_expr (" + Expr (");
    3783   _c_83 = Expr (_c_129, 3, 6);
    3784   _c_84 = Expr::create<Word>("REF");
    3785   _c_85 = Expr::create<Word>("ERROR-EXPR");
    3786   _c_86 = Char::create_expr ("err");
    3787   _c_87 = Expr::create<Word>("Illegal type int-symbol: ");
    3788   _c_88 = Char::create_expr (".get_len ()");
    3789   _c_89 = Expr::create<Word>("Ints");
    3790   _c_90 = Char::create_expr ("pxx_max (");
    3791   _c_91 = Char::create_expr ("pxx_min (");
    3792   _c_92 = Expr (Expr_m_Int_m_To_m_CPP);
    3793   _c_93 = Expr::create<Word>("CALL");
    3794   _c_94 = Char::create_expr ("RF_CALL (");
    3795   _c_95 = Expr::create<Word>("SYMBOL?");
    3796   _c_96 = Char::create_expr (".symbol_at (");
    3797   _c_97 = Expr::create<Word>("FLAT-SUBEXPR?");
    3798   _c_98 = Char::create_expr (".flat_at (");
    3799   _c_99 = Expr::create<Word>("CHECK-ITER");
    3800   _c_100 = Char::create_expr ("iter(");
    3801   _c_101 = Expr::create<Word>("EQ");
    3802   _c_102 = Char::create_expr (".eq (");
    3803   _c_103 = Expr::create<Word>("TERM-EQ");
    3804   _c_104 = Char::create_expr (".term_eq (");
    3805   _c_105 = Expr::create<Word>("NOT");
    3806   _c_106 = Char::create_expr ("!");
    3807   _c_107 = Expr (Cond_m_To_m_CPP);
    3808   _c_108 = Expr::create<Word>("&&");
    3809   _c_109 = Expr::create<Word>("||");
    3810   _c_110 = Expr::create<Word>("<");
    3811   _c_111 = Expr::create<Word>(">");
    3812   _c_112 = Expr::create<Word>("<=");
    3813   _c_113 = Expr::create<Word>(">=");
    3814   _c_114 = Expr::create<Word>("==");
    3815   _c_115 = Expr::create<Word>("!=");
    3816   _c_116 = Expr::create<Word>("-");
    3817   _c_117 = Expr::create<Word>("%");
    3818   _c_118 = Expr::create<Word>("*");
    3819   _c_119 = Expr::create<Word>("/");
    3820   _c_120 = Expr::create<Word>("INC-ITER");
    3821   _c_121 = Char::create_expr (")++");
    3822   _c_122 = Expr::create<Word>("DEC-ITER");
    3823   _c_123 = Char::create_expr (")--");
    3824   _c_124 = Expr (_c_144, 0, 1);
    3825   _c_126 = Char::create_expr (" + Char::create_expr (\"");
    3826   _c_125 = Expr (_c_126, 0, 3);
    3827   _c_127 = Char::create_expr (") ()");
    3828   _c_128 = Char::create_expr (" + (");
    3829   _c_132 = Char::create_expr (" + Expr::create<Word>(\"");
    3830   _c_130 = Expr (_c_132, 20, 3);
    3831   _c_131 = Expr (_c_132, 0, 16);
    3832   _c_134 = Char::create_expr ("\\\\");
    3833   _c_133 = Expr (_c_134, 0, 1);
    3834   _c_135 = Expr (_c_7, 20, 1);
    3835   _c_136 = Char::create_expr ("\\n");
    3836   _c_137 = Char::create_expr ("\t");
    3837   _c_138 = Char::create_expr ("\\t");
    3838   _c_139 = Char::create_expr ("\r");
    3839   _c_140 = Char::create_expr ("\\r");
    3840   _c_141 = Expr (_c_64, 0, 1);
    3841   _c_142 = Char::create_expr ("\\\"");
    3842   _c_143 = Char::create_expr ("RF_VOID");
    3843   _c_145 = Char::create_expr ("/*void*/");
    3844   _c_146 = Char::create_expr (";;)");
    3845   _c_147 = Expr (_c_7, 20, 2);
    3846   _c_148 = Expr (_c_150, 6, 10);
     3780  _c_64 = Expr::create<Word>("BOX");
     3781  _c_65 = Char::create_expr ("\")");
     3782  _c_66 = Char::create_expr ("Expr::create_sym< NamedObject<BoxContents> >(L\"");
     3783  _c_67 = Expr (_c_66, 43, 4);
     3784  _c_68 = Char::create_expr ("new rftype::StaticObject<rftype::");
     3785  _c_69 = Expr::create<Word>("DECL-OBJ");
     3786  _c_71 = Expr::create<Word>("DECL-FUNC");
     3787  _c_72 = Char::create_expr ("RF_DECL (");
     3788  _c_73 = Expr::create<Word>("Exprs");
     3789  _c_74 = Expr (_c_16, 0, 3);
     3790  _c_75 = Expr::create<Word>("PAREN");
     3791  _c_76 = Expr::create<Word>("LENGTH");
     3792  _c_77 = Expr::create<Word>("MAX");
     3793  _c_78 = Expr::create<Word>("MIN");
     3794  _c_79 = Expr::create<Word>("INFIX");
     3795  _c_80 = Char::create_expr ("empty");
     3796  _c_81 = Expr (Term_m_Ref_m_To_m_CPP);
     3797  _c_82 = Expr::create<Word>("+");
     3798  _c_83 = Expr (_c_48, 1, 1);
     3799  _c_84 = Expr (_c_53, 5, 3);
     3800  _c_131 = Char::create_expr (" + Expr (");
     3801  _c_85 = Expr (_c_131, 3, 6);
     3802  _c_86 = Expr::create<Word>("REF");
     3803  _c_87 = Expr::create<Word>("ERROR-EXPR");
     3804  _c_88 = Char::create_expr ("err");
     3805  _c_89 = Expr::create<Word>("Illegal type int-symbol: ");
     3806  _c_90 = Char::create_expr (".get_len ()");
     3807  _c_91 = Expr::create<Word>("Ints");
     3808  _c_92 = Char::create_expr ("pxx_max (");
     3809  _c_93 = Char::create_expr ("pxx_min (");
     3810  _c_94 = Expr (Expr_m_Int_m_To_m_CPP);
     3811  _c_95 = Expr::create<Word>("CALL");
     3812  _c_96 = Char::create_expr ("RF_CALL (");
     3813  _c_97 = Expr::create<Word>("SYMBOL?");
     3814  _c_98 = Char::create_expr (".symbol_at (");
     3815  _c_99 = Expr::create<Word>("FLAT-SUBEXPR?");
     3816  _c_100 = Char::create_expr (".flat_at (");
     3817  _c_101 = Expr::create<Word>("CHECK-ITER");
     3818  _c_102 = Char::create_expr ("iter(");
     3819  _c_103 = Expr::create<Word>("EQ");
     3820  _c_104 = Char::create_expr (".eq (");
     3821  _c_105 = Expr::create<Word>("TERM-EQ");
     3822  _c_106 = Char::create_expr (".term_eq (");
     3823  _c_107 = Expr::create<Word>("NOT");
     3824  _c_108 = Char::create_expr ("!");
     3825  _c_109 = Expr (Cond_m_To_m_CPP);
     3826  _c_110 = Expr::create<Word>("&&");
     3827  _c_111 = Expr::create<Word>("||");
     3828  _c_112 = Expr::create<Word>("<");
     3829  _c_113 = Expr::create<Word>(">");
     3830  _c_114 = Expr::create<Word>("<=");
     3831  _c_115 = Expr::create<Word>(">=");
     3832  _c_116 = Expr::create<Word>("==");
     3833  _c_117 = Expr::create<Word>("!=");
     3834  _c_118 = Expr::create<Word>("-");
     3835  _c_119 = Expr::create<Word>("%");
     3836  _c_120 = Expr::create<Word>("*");
     3837  _c_121 = Expr::create<Word>("/");
     3838  _c_122 = Expr::create<Word>("INC-ITER");
     3839  _c_123 = Char::create_expr (")++");
     3840  _c_124 = Expr::create<Word>("DEC-ITER");
     3841  _c_125 = Char::create_expr (")--");
     3842  _c_126 = Expr (_c_146, 0, 1);
     3843  _c_128 = Char::create_expr (" + Char::create_expr (\"");
     3844  _c_127 = Expr (_c_128, 0, 3);
     3845  _c_129 = Char::create_expr (") ()");
     3846  _c_130 = Char::create_expr (" + (");
     3847  _c_134 = Char::create_expr (" + Expr::create<Word>(\"");
     3848  _c_132 = Expr (_c_134, 20, 3);
     3849  _c_133 = Expr (_c_134, 0, 16);
     3850  _c_136 = Char::create_expr ("\\\\");
     3851  _c_135 = Expr (_c_136, 0, 1);
     3852  _c_137 = Expr (_c_7, 20, 1);
     3853  _c_138 = Char::create_expr ("\\n");
     3854  _c_139 = Char::create_expr ("\t");
     3855  _c_140 = Char::create_expr ("\\t");
     3856  _c_141 = Char::create_expr ("\r");
     3857  _c_142 = Char::create_expr ("\\r");
     3858  _c_143 = Expr (_c_65, 0, 1);
     3859  _c_144 = Char::create_expr ("\\\"");
     3860  _c_145 = Char::create_expr ("RF_VOID");
     3861  _c_147 = Char::create_expr ("/*void*/");
     3862  _c_148 = Char::create_expr (";;)");
     3863  _c_149 = Expr (_c_7, 20, 2);
     3864  _c_150 = Expr (_c_152, 6, 10);
    38473865}
    38483866
  • to-imperative/trunk/bootstrap/compiler/rfp_asail_optim.cc

    r1726 r1774  
    58375837static void init_ ()
    58385838{
    5839   Stack_m_Int = new rftype::StaticObject<rftype::Box>(L"Stack-Int");
    5840   Flag_m_Cont = new rftype::StaticObject<rftype::Box>(L"Flag-Cont");
    5841   Flag_m_For = new rftype::StaticObject<rftype::Box>(L"Flag-For");
    5842   Flag_m_Return = new rftype::StaticObject<rftype::Box>(L"Flag-Return");
     5839  Stack_m_Int = Expr::create_sym< NamedObject<BoxContents> >(L"Stack-Int");
     5840  Flag_m_Cont = Expr::create_sym< NamedObject<BoxContents> >(L"Flag-Cont");
     5841  Flag_m_For = Expr::create_sym< NamedObject<BoxContents> >(L"Flag-For");
     5842  Flag_m_Return = Expr::create_sym< NamedObject<BoxContents> >(L"Flag-Return");
    58435843  Used_m_Label = new rftype::StaticObject<rftype::Table>(L"Used-Label");
    58445844  _c_0 = Expr::create<Integer>("1");
  • to-imperative/trunk/bootstrap/compiler/rfp_check.cc

    r1712 r1774  
    18901890      _block4: {}
    18911891        {
    1892           {
    1893             Expr _v_R1;
    1894             if (!RF_CALL (Access::R, (_c_3, _ve_cuts), _v_R1))
    1895             {
    1896               goto _block5__branch1;
    1897             }
    1898             RF_CALL (Print_m_Error, (_c_4, _c_5, _v_R1), /*void*/);
    1899             RF_RETFAIL;
    1900             goto _block5;
    1901           }
    1902         _block5__branch1: {}
    1903           _ve_cuts = empty;
    1904           _ve_Sentence = _ve_Snt;
    1905         }
    1906       _block5: {}
     1892          Expr _v_R1;
     1893          if (!RF_CALL (Access::R, (_c_3, _ve_cuts), _v_R1))
     1894          {
     1895            goto _block5__branch1;
     1896          }
     1897          RF_CALL (Print_m_Error, (_c_4, _c_5, _v_R1), /*void*/);
     1898          RF_RETFAIL;
     1899        }
     1900      _block5__branch1: {}
     1901        _ve_cuts = empty;
     1902        _ve_Sentence = _ve_Snt;
    19071903        goto _block3;
    19081904      }
  • to-imperative/trunk/bootstrap/compiler/rfp_clashes.cc

    r1712 r1774  
    12041204RF_FUNC (Not_m_Idx, (RF_ARG _v_arg1;;), (RF_RES _v_res1;;))
    12051205  {
    1206     {
    1207       if ((_v_arg1.get_len () != 2))
    1208       {
    1209         goto _block1__branch1;
    1210       }
    1211       if (_v_arg1.symbol_at (1))
    1212       {
    1213         goto _block1__branch1;
    1214       }
    1215       Expr _v_deref__arg1 (_v_arg1, 1);
    1216       uintptr_t _v_len1 = _v_deref__arg1.get_len ();
    1217       uintptr_t _v_len2 = 1;
    1218       if ((_v_len1 < _v_len2))
    1219       {
    1220         goto _block1__branch1;
    1221       }
    1222       uintptr_t _v_len___e__e_tmp_m_rfp__clashesrf_m_299_m_17 = (_v_len1 - _v_len2);
    1223       if (!_v_arg1.symbol_at (0))
    1224       {
    1225         goto _block1__branch1;
    1226       }
    1227       Expr _vs_idx (_v_arg1, 0, 1);
    1228       if (!_vs_idx.term_eq (_v_deref__arg1, 0))
    1229       {
    1230         goto _block1__branch1;
    1231       }
    1232       Expr _ve__e__e_tmp_m_rfp__clashesrf_m_299_m_17 (_v_deref__arg1, 1, _v_len___e__e_tmp_m_rfp__clashesrf_m_299_m_17);
    1233       RF_RETFAIL;
    1234       goto _block1;
    1235     }
    1236   _block1__branch1: {}
    1237     _v_res1 = empty;
    1238   }
    1239 _block1: {}
     1206    if ((_v_arg1.get_len () != 2))
     1207    {
     1208      goto _block1__branch1;
     1209    }
     1210    if (_v_arg1.symbol_at (1))
     1211    {
     1212      goto _block1__branch1;
     1213    }
     1214    Expr _v_deref__arg1 (_v_arg1, 1);
     1215    uintptr_t _v_len1 = _v_deref__arg1.get_len ();
     1216    uintptr_t _v_len2 = 1;
     1217    if ((_v_len1 < _v_len2))
     1218    {
     1219      goto _block1__branch1;
     1220    }
     1221    uintptr_t _v_len___e__e_tmp_m_rfp__clashesrf_m_299_m_17 = (_v_len1 - _v_len2);
     1222    if (!_v_arg1.symbol_at (0))
     1223    {
     1224      goto _block1__branch1;
     1225    }
     1226    Expr _vs_idx (_v_arg1, 0, 1);
     1227    if (!_vs_idx.term_eq (_v_deref__arg1, 0))
     1228    {
     1229      goto _block1__branch1;
     1230    }
     1231    Expr _ve__e__e_tmp_m_rfp__clashesrf_m_299_m_17 (_v_deref__arg1, 1, _v_len___e__e_tmp_m_rfp__clashesrf_m_299_m_17);
     1232    RF_RETFAIL;
     1233  }
     1234_block1__branch1: {}
     1235  _v_res1 = empty;
    12401236RF_END
    12411237
     
    21302126  Compute_m_Length = new rftype::StaticObject<rftype::Table>(L"Compute-Length");
    21312127  Unknown_m_Lengths = new rftype::StaticObject<rftype::Table>(L"Unknown-Lengths");
    2132   Checked_m_Lengths = new rftype::StaticObject<rftype::Box>(L"Checked-Lengths");
    2133   Eqs = new rftype::StaticObject<rftype::Box>(L"Eqs");
    2134   Clashes = new rftype::StaticObject<rftype::Box>(L"Clashes");
     2128  Checked_m_Lengths = Expr::create_sym< NamedObject<BoxContents> >(L"Checked-Lengths");
     2129  Eqs = Expr::create_sym< NamedObject<BoxContents> >(L"Eqs");
     2130  Clashes = Expr::create_sym< NamedObject<BoxContents> >(L"Clashes");
    21352131  Hard_m_Parts = new rftype::StaticObject<rftype::Table>(L"Hard-Parts");
    2136   Parenth = new rftype::StaticObject<rftype::Box>(L"Parenth");
    2137   Unready_m_Source = new rftype::StaticObject<rftype::Box>(L"Unready-Source");
    2138   FreeIdx = new rftype::StaticObject<rftype::Box>(L"FreeIdx");
     2132  Parenth = Expr::create_sym< NamedObject<BoxContents> >(L"Parenth");
     2133  Unready_m_Source = Expr::create_sym< NamedObject<BoxContents> >(L"Unready-Source");
     2134  FreeIdx = Expr::create_sym< NamedObject<BoxContents> >(L"FreeIdx");
    21392135  Const_m_Len = new rftype::StaticObject<rftype::Table>(L"Const-Len");
    21402136  _c_0 = Expr::create<Word>("Clashes");
  • to-imperative/trunk/bootstrap/compiler/rfp_compile.cc

    r1712 r1774  
    17551755          RF_CALL (StdIO::WriteLN_e_, (StdIO::StdErr, _c_51), /*void*/);
    17561756          RF_FUNC_ERROR (unexpected_fail);
    1757           goto _exit2;
    17581757        }
    17591758    _continue2: {}
    17601759      }
    1761     _exit2: {}
    1762       goto _block1;
    17631760    }
    17641761  _block1__branch5: {}
     
    34363433    }
    34373434  _block1__branch1: {}
    3438     {
    3439       RF_CALL (rfp__vars::Vars_m_Reset, _vt_var, /*void*/);
    3440       goto _block1__branch2;
    3441       goto _block1;
    3442     }
    3443   _block1__branch2: {}
     3435    RF_CALL (rfp__vars::Vars_m_Reset, _vt_var, /*void*/);
    34443436    {
    34453437      if (!RF_CALL (rfp__vars::Substitutable_m_Var_q_, _ve_Re, /*void*/))
     
    44974489        Expr _ve__e__e_tmp_m_rfp__compilerf_m_1055_m_16 (_v_deref__Rt, 1, _v_len___e__e_tmp_m_rfp__compilerf_m_1055_m_16);
    44984490        RF_RETFAIL;
    4499         goto _block2;
    45004491      }
    45014492    _block2__branch1: {}
     
    45194510        Expr _ve__e__e_tmp_m_rfp__compilerf_m_1056_m_17 (_v_deref__Rt2, 1, _v_len___e__e_tmp_m_rfp__compilerf_m_1056_m_17);
    45204511        RF_RETFAIL;
    4521         goto _block2;
    45224512      }
    45234513    _block2__branch2: {}
     
    60486038  Objects = new rftype::StaticObject<rftype::Table>(L"Objects");
    60496039  Stub_m_Funcs = new rftype::StaticObject<rftype::Table>(L"Stub-Funcs");
    6050   Out_m_Format = new rftype::StaticObject<rftype::Box>(L"Out-Format");
    6051   Res_m_Vars = new rftype::StaticObject<rftype::Box>(L"Res-Vars");
     6040  Out_m_Format = Expr::create_sym< NamedObject<BoxContents> >(L"Out-Format");
     6041  Res_m_Vars = Expr::create_sym< NamedObject<BoxContents> >(L"Res-Vars");
    60526042  Labels = new rftype::StaticObject<rftype::Table>(L"Labels");
    60536043  Prep_m_Vars = new rftype::StaticObject<rftype::Table>(L"Prep-Vars");
    6054   Declarations = new rftype::StaticObject<rftype::Box>(L"Declarations");
    6055   Snt_m_State = new rftype::StaticObject<rftype::Box>(L"Snt-State");
    6056   Aux_m_Index = new rftype::StaticObject<rftype::Box>(L"Aux-Index");
     6044  Declarations = Expr::create_sym< NamedObject<BoxContents> >(L"Declarations");
     6045  Snt_m_State = Expr::create_sym< NamedObject<BoxContents> >(L"Snt-State");
     6046  Aux_m_Index = Expr::create_sym< NamedObject<BoxContents> >(L"Aux-Index");
    60576047  _c_0 = Expr::create<Word>("ITEMS");
    60586048  _c_1 = Expr::create<Word>("INTERFACE");
  • to-imperative/trunk/bootstrap/compiler/rfp_const.cc

    r1712 r1774  
    10001000static void init_ ()
    10011001{
    1002   Static = new rftype::StaticObject<rftype::Box>(L"Static");
     1002  Static = Expr::create_sym< NamedObject<BoxContents> >(L"Static");
    10031003  St_m_Table = new rftype::StaticObject<rftype::Table>(L"St-Table");
    1004   FreeIdx = new rftype::StaticObject<rftype::Box>(L"FreeIdx");
     1004  FreeIdx = Expr::create_sym< NamedObject<BoxContents> >(L"FreeIdx");
    10051005  _c_0 = Expr::create<Word>("REF");
    10061006  _c_1 = Expr::create<Word>("STATIC");
  • to-imperative/trunk/bootstrap/compiler/rfp_debug.cc

    r1712 r1774  
    22642264RF_FUNC (Try_m_Open, (RF_ARG _v_arg1;;), (RF_RES _v_res1;;))
    22652265  {
    2266     {
    2267       if ((_v_arg1.get_len () != 0))
    2268       {
    2269         goto _block1__branch1;
    2270       }
    2271       RF_CALL (StdIO::PrintLN, _c_45, /*void*/);
    2272       RF_RETFAIL;
    2273       goto _block1;
    2274     }
    2275   _block1__branch1: {}
    2276     uintptr_t _v_len1 = _v_arg1.get_len ();
    2277     uintptr_t _v_len2 = 1;
    2278     if ((_v_len1 < _v_len2))
    2279     {
    2280       RF_FUNC_ERROR (unexpected_fail);
    2281     }
    2282     uintptr_t _v_len__rest = (_v_len1 - _v_len2);
    2283     if (_v_arg1.symbol_at (0))
    2284     {
    2285       RF_FUNC_ERROR (unexpected_fail);
    2286     }
    2287     Expr _v_deref__arg1 (_v_arg1, 0);
    2288     uintptr_t _v_len3 = _v_deref__arg1.get_len ();
    2289     uintptr_t _v_len4 = 0;
    2290     if ((_v_len3 < _v_len4))
    2291     {
    2292       RF_FUNC_ERROR (unexpected_fail);
    2293     }
    2294     uintptr_t _v_len__dir = (_v_len3 - _v_len4);
    2295     Expr _ve_rest (_v_arg1, 1, _v_len__rest);
    2296     Expr _ve_dir (_v_deref__arg1, 0, _v_len__dir);
    2297     {
    2298       {
    2299         Expr _vs_ch;
    2300         RF_CALL (StdIO::Channel, /*void*/, _vs_ch);
    2301         if (!RF_CALL (StdIO::Open_m_File, (_vs_ch, (_ve_dir + _c_46), _c_47), /*void*/))
    2302         {
    2303           goto _block2__branch1;
    2304         }
    2305         RF_CALL (StdIO::Close_m_Channel, _vs_ch, /*void*/);
    2306         _v_res1 = _ve_dir;
    2307         goto _block2;
    2308       }
    2309     _block2__branch1: {}
    2310       if (!RF_CALL (Try_m_Open, _ve_rest, _v_res1))
    2311       {
    2312         RF_FUNC_ERROR (unexpected_fail);
    2313       }
    2314     }
    2315   _block2: {}
    2316   }
    2317 _block1: {}
     2266    if ((_v_arg1.get_len () != 0))
     2267    {
     2268      goto _block1__branch1;
     2269    }
     2270    RF_CALL (StdIO::PrintLN, _c_45, /*void*/);
     2271    RF_RETFAIL;
     2272  }
     2273_block1__branch1: {}
     2274  uintptr_t _v_len1 = _v_arg1.get_len ();
     2275  uintptr_t _v_len2 = 1;
     2276  if ((_v_len1 < _v_len2))
     2277  {
     2278    RF_FUNC_ERROR (unexpected_fail);
     2279  }
     2280  uintptr_t _v_len__rest = (_v_len1 - _v_len2);
     2281  if (_v_arg1.symbol_at (0))
     2282  {
     2283    RF_FUNC_ERROR (unexpected_fail);
     2284  }
     2285  Expr _v_deref__arg1 (_v_arg1, 0);
     2286  uintptr_t _v_len3 = _v_deref__arg1.get_len ();
     2287  uintptr_t _v_len4 = 0;
     2288  if ((_v_len3 < _v_len4))
     2289  {
     2290    RF_FUNC_ERROR (unexpected_fail);
     2291  }
     2292  uintptr_t _v_len__dir = (_v_len3 - _v_len4);
     2293  Expr _ve_rest (_v_arg1, 1, _v_len__rest);
     2294  Expr _ve_dir (_v_deref__arg1, 0, _v_len__dir);
     2295  {
     2296    {
     2297      Expr _vs_ch;
     2298      RF_CALL (StdIO::Channel, /*void*/, _vs_ch);
     2299      if (!RF_CALL (StdIO::Open_m_File, (_vs_ch, (_ve_dir + _c_46), _c_47), /*void*/))
     2300      {
     2301        goto _block2__branch1;
     2302      }
     2303      RF_CALL (StdIO::Close_m_Channel, _vs_ch, /*void*/);
     2304      _v_res1 = _ve_dir;
     2305      goto _block2;
     2306    }
     2307  _block2__branch1: {}
     2308    if (!RF_CALL (Try_m_Open, _ve_rest, _v_res1))
     2309    {
     2310      RF_FUNC_ERROR (unexpected_fail);
     2311    }
     2312  }
     2313_block2: {}
    23182314RF_END
    23192315
     
    25212517  Name_m_Debug_m_File = Char::create_expr ("Debug.rfi");
    25222518  Dir_m_Separator = Char::create_expr ("/");
    2523   Debug_m_id = new rftype::StaticObject<rftype::Box>(L"Debug-id");
    2524   Vars = new rftype::StaticObject<rftype::Box>(L"Vars");
    2525   Pragma = new rftype::StaticObject<rftype::Box>(L"Pragma");
    2526   HardExpr = new rftype::StaticObject<rftype::Box>(L"HardExpr");
    2527   Numb = new rftype::StaticObject<rftype::Box>(L"Numb");
     2519  Debug_m_id = Expr::create_sym< NamedObject<BoxContents> >(L"Debug-id");
     2520  Vars = Expr::create_sym< NamedObject<BoxContents> >(L"Vars");
     2521  Pragma = Expr::create_sym< NamedObject<BoxContents> >(L"Pragma");
     2522  HardExpr = Expr::create_sym< NamedObject<BoxContents> >(L"HardExpr");
     2523  Numb = Expr::create_sym< NamedObject<BoxContents> >(L"Numb");
    25282524  Id_m_Position = new rftype::StaticObject<rftype::Table>(L"Id-Position");
    25292525  _c_0 = Expr::create<Integer>("0");
  • to-imperative/trunk/bootstrap/compiler/rfp_err.cc

    r1712 r1774  
    161161static void init_ ()
    162162{
    163   Error_m_Counter = new rftype::StaticObject<rftype::Box>(L"Error-Counter");
    164   Warning_m_Counter = new rftype::StaticObject<rftype::Box>(L"Warning-Counter");
     163  Error_m_Counter = Expr::create_sym< NamedObject<BoxContents> >(L"Error-Counter");
     164  Warning_m_Counter = Expr::create_sym< NamedObject<BoxContents> >(L"Warning-Counter");
    165165  _c_0 = Expr::create<Integer>("1");
    166166  _c_1 = Expr::create<Word>(" --- Error: ");
  • to-imperative/trunk/bootstrap/compiler/rfp_format.cc

    r1712 r1774  
    18651865          Expr _ve_2 (_v_lsplit__Format22, 1, _v_len__2);
    18661866          {
    1867             {
    1868               Expr _vt_0;
    1869               if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
    1870               {
    1871                 goto _block3__branch1;
    1872               }
    1873               {
    1874                 if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
    1875                 {
    1876                   goto _negation2;
    1877                 }
    1878                 goto _block3__branch1;
    1879               }
    1880             _negation2: {}
    1881               RF_RETFAIL;
    1882               goto _block3;
    1883             }
    1884           _block3__branch1: {}
    1885             {
    1886               {
    1887                 if (_vt_1.symbol_at (0))
    1888                 {
    1889                   goto _block4__branch1;
    1890                 }
    1891                 Expr _v_deref__1 (_vt_1, 0);
    1892                 if ((_v_deref__1.get_len () != 2))
    1893                 {
    1894                   goto _block4__branch1;
    1895                 }
    1896                 if (!_c_0.term_eq (_v_deref__1, 0))
    1897                 {
    1898                   goto _block4__branch1;
    1899                 }
    1900                 Expr _vt_Name (_v_deref__1, 1, 1);
    1901                 Expr _v_Get_m_Const_m_Term1;
    1902                 if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term1))
    1903                 {
    1904                   goto _block4__branch1;
    1905                 }
    1906                 uintptr_t _v_len5 = 1;
    1907                 uintptr_t _v_len6 = 0;
    1908                 if ((_v_len5 < _v_len6))
    1909                 {
    1910                   goto _block4__branch1;
    1911                 }
    1912                 uintptr_t _v_len___e__e_tmp_m_rfp__formatrf_m_209_m_52 = (_v_len5 - _v_len6);
    1913                 Expr _ve__e__e_tmp_m_rfp__formatrf_m_209_m_52 (_v_Get_m_Const_m_Term1, 0, _v_len___e__e_tmp_m_rfp__formatrf_m_209_m_52);
    1914                 goto _block4;
    1915               }
    1916             _block4__branch1: {}
    1917               {
    1918                 if (!_vt_1.symbol_at (0))
    1919                 {
    1920                   goto _block4__branch2;
    1921                 }
    1922                 Expr _vs_ObjectSymbol (_vt_1, 0, 1);
    1923                 goto _block4;
    1924               }
    1925             _block4__branch2: {}
    1926               {
    1927                 if (!_vt_1.term_eq (_c_1, 0))
    1928                 {
    1929                   goto _block4__branch3;
    1930                 }
    1931                 goto _block4;
    1932               }
    1933             _block4__branch3: {}
    1934               {
    1935                 if (_vt_1.symbol_at (0))
    1936                 {
    1937                   goto _block4__branch4;
    1938                 }
    1939                 Expr _v_deref__12 (_vt_1, 0);
    1940                 uintptr_t _v_len7 = _v_deref__12.get_len ();
    1941                 uintptr_t _v_len8 = 1;
    1942                 if ((_v_len7 < _v_len8))
    1943                 {
    1944                   goto _block4__branch4;
    1945                 }
    1946                 uintptr_t _v_len___e__e_tmp_m_rfp__formatrf_m_212_m_19 = (_v_len7 - _v_len8);
    1947                 if (!_c_4.term_eq (_v_deref__12, 0))
    1948                 {
    1949                   goto _block4__branch4;
    1950                 }
    1951                 Expr _ve__e__e_tmp_m_rfp__formatrf_m_212_m_19 (_v_deref__12, 1, _v_len___e__e_tmp_m_rfp__formatrf_m_212_m_19);
    1952                 goto _block4;
    1953               }
    1954             _block4__branch4: {}
    1955               if (!_vt_1.term_eq (_c_15, 0))
    1956               {
    1957                 goto _continue2;
    1958               }
    1959             }
    1960           _block4: {}
    1961             RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
    1962           }
    1963         _block3: {}
     1867            Expr _vt_0;
     1868            if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
     1869            {
     1870              goto _block3__branch1;
     1871            }
     1872            {
     1873              if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
     1874              {
     1875                goto _negation2;
     1876              }
     1877              goto _block3__branch1;
     1878            }
     1879          _negation2: {}
     1880            RF_RETFAIL;
     1881          }
     1882        _block3__branch1: {}
     1883          {
     1884            {
     1885              if (_vt_1.symbol_at (0))
     1886              {
     1887                goto _block4__branch1;
     1888              }
     1889              Expr _v_deref__1 (_vt_1, 0);
     1890              if ((_v_deref__1.get_len () != 2))
     1891              {
     1892                goto _block4__branch1;
     1893              }
     1894              if (!_c_0.term_eq (_v_deref__1, 0))
     1895              {
     1896                goto _block4__branch1;
     1897              }
     1898              Expr _vt_Name (_v_deref__1, 1, 1);
     1899              Expr _v_Get_m_Const_m_Term1;
     1900              if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term1))
     1901              {
     1902                goto _block4__branch1;
     1903              }
     1904              uintptr_t _v_len5 = 1;
     1905              uintptr_t _v_len6 = 0;
     1906              if ((_v_len5 < _v_len6))
     1907              {
     1908                goto _block4__branch1;
     1909              }
     1910              uintptr_t _v_len___e__e_tmp_m_rfp__formatrf_m_209_m_52 = (_v_len5 - _v_len6);
     1911              Expr _ve__e__e_tmp_m_rfp__formatrf_m_209_m_52 (_v_Get_m_Const_m_Term1, 0, _v_len___e__e_tmp_m_rfp__formatrf_m_209_m_52);
     1912              goto _block4;
     1913            }
     1914          _block4__branch1: {}
     1915            {
     1916              if (!_vt_1.symbol_at (0))
     1917              {
     1918                goto _block4__branch2;
     1919              }
     1920              Expr _vs_ObjectSymbol (_vt_1, 0, 1);
     1921              goto _block4;
     1922            }
     1923          _block4__branch2: {}
     1924            {
     1925              if (!_vt_1.term_eq (_c_1, 0))
     1926              {
     1927                goto _block4__branch3;
     1928              }
     1929              goto _block4;
     1930            }
     1931          _block4__branch3: {}
     1932            {
     1933              if (_vt_1.symbol_at (0))
     1934              {
     1935                goto _block4__branch4;
     1936              }
     1937              Expr _v_deref__12 (_vt_1, 0);
     1938              uintptr_t _v_len7 = _v_deref__12.get_len ();
     1939              uintptr_t _v_len8 = 1;
     1940              if ((_v_len7 < _v_len8))
     1941              {
     1942                goto _block4__branch4;
     1943              }
     1944              uintptr_t _v_len___e__e_tmp_m_rfp__formatrf_m_212_m_19 = (_v_len7 - _v_len8);
     1945              if (!_c_4.term_eq (_v_deref__12, 0))
     1946              {
     1947                goto _block4__branch4;
     1948              }
     1949              Expr _ve__e__e_tmp_m_rfp__formatrf_m_212_m_19 (_v_deref__12, 1, _v_len___e__e_tmp_m_rfp__formatrf_m_212_m_19);
     1950              goto _block4;
     1951            }
     1952          _block4__branch4: {}
     1953            if (!_vt_1.term_eq (_c_15, 0))
     1954            {
     1955              goto _continue2;
     1956            }
     1957          }
     1958        _block4: {}
     1959          RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
    19641960          goto _exit2;
    19651961        }
     
    20011997          Expr _ve_2 (_v_lsplit__Format23, 1, _v_len__22);
    20021998          {
    2003             {
    2004               Expr _vt_0;
    2005               if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
    2006               {
    2007                 goto _block5__branch1;
    2008               }
    2009               {
    2010                 if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
     1999            Expr _vt_0;
     2000            if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
     2001            {
     2002              goto _block5__branch1;
     2003            }
     2004            {
     2005              if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
     2006              {
     2007                goto _negation3;
     2008              }
     2009              goto _block5__branch1;
     2010            }
     2011          _negation3: {}
     2012            RF_RETFAIL;
     2013          }
     2014        _block5__branch1: {}
     2015          {
     2016            {
     2017              if (_vt_1.symbol_at (0))
     2018              {
     2019                goto _block6__branch1;
     2020              }
     2021              Expr _v_deref__13 (_vt_1, 0);
     2022              if ((_v_deref__13.get_len () != 2))
     2023              {
     2024                goto _block6__branch1;
     2025              }
     2026              if (!_c_0.term_eq (_v_deref__13, 0))
     2027              {
     2028                goto _block6__branch1;
     2029              }
     2030              Expr _vt_Name (_v_deref__13, 1, 1);
     2031              Expr _v_Get_m_Const_m_Term2;
     2032              if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term2))
     2033              {
     2034                goto _block6__branch1;
     2035              }
     2036              Expr _vt_erm (_v_Get_m_Const_m_Term2, 0, 1);
     2037              {
    20112038                {
    2012                   goto _negation3;
     2039                  if (!_vt_erm.symbol_at (0))
     2040                  {
     2041                    goto _block7__branch1;
     2042                  }
     2043                  Expr _vs_ObjectSymbol (_vt_erm, 0, 1);
     2044                  goto _block7;
    20132045                }
    2014                 goto _block5__branch1;
    2015               }
    2016             _negation3: {}
    2017               RF_RETFAIL;
    2018               goto _block5;
    2019             }
    2020           _block5__branch1: {}
    2021             {
    2022               {
    2023                 if (_vt_1.symbol_at (0))
     2046              _block7__branch1: {}
     2047                if (_vt_erm.symbol_at (0))
    20242048                {
    2025                   goto _block6__branch1;
     2049                  RF_RETFAIL;
    20262050                }
    2027                 Expr _v_deref__13 (_vt_1, 0);
    2028                 if ((_v_deref__13.get_len () != 2))
     2051                Expr _v_deref__erm (_vt_erm, 0);
     2052                uintptr_t _v_len11 = _v_deref__erm.get_len ();
     2053                uintptr_t _v_len12 = 1;
     2054                if ((_v_len11 < _v_len12))
    20292055                {
    2030                   goto _block6__branch1;
     2056                  RF_RETFAIL;
    20312057                }
    2032                 if (!_c_0.term_eq (_v_deref__13, 0))
     2058                uintptr_t _v_len___e__e_tmp_m_rfp__formatrf_m_225_m_21 = (_v_len11 - _v_len12);
     2059                if (!_c_0.term_eq (_v_deref__erm, 0))
    20332060                {
    2034                   goto _block6__branch1;
     2061                  RF_RETFAIL;
    20352062                }
    2036                 Expr _vt_Name (_v_deref__13, 1, 1);
    2037                 Expr _v_Get_m_Const_m_Term2;
    2038                 if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term2))
    2039                 {
    2040                   goto _block6__branch1;
    2041                 }
    2042                 Expr _vt_erm (_v_Get_m_Const_m_Term2, 0, 1);
    2043                 {
    2044                   {
    2045                     if (!_vt_erm.symbol_at (0))
    2046                     {
    2047                       goto _block7__branch1;
    2048                     }
    2049                     Expr _vs_ObjectSymbol (_vt_erm, 0, 1);
    2050                     goto _block7;
    2051                   }
    2052                 _block7__branch1: {}
    2053                   if (_vt_erm.symbol_at (0))
    2054                   {
    2055                     RF_RETFAIL;
    2056                   }
    2057                   Expr _v_deref__erm (_vt_erm, 0);
    2058                   uintptr_t _v_len11 = _v_deref__erm.get_len ();
    2059                   uintptr_t _v_len12 = 1;
    2060                   if ((_v_len11 < _v_len12))
    2061                   {
    2062                     RF_RETFAIL;
    2063                   }
    2064                   uintptr_t _v_len___e__e_tmp_m_rfp__formatrf_m_225_m_21 = (_v_len11 - _v_len12);
    2065                   if (!_c_0.term_eq (_v_deref__erm, 0))
    2066                   {
    2067                     RF_RETFAIL;
    2068                   }
    2069                   Expr _ve__e__e_tmp_m_rfp__formatrf_m_225_m_21 (_v_deref__erm, 1, _v_len___e__e_tmp_m_rfp__formatrf_m_225_m_21);
    2070                 }
    2071               _block7: {}
    2072                 RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
    2073                 goto _block6;
    2074               }
    2075             _block6__branch1: {}
    2076               {
    2077                 if (!_vt_1.symbol_at (0))
    2078                 {
    2079                   goto _block6__branch2;
    2080                 }
    2081                 Expr _vs_ObjectSymbol (_vt_1, 0, 1);
    2082                 RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
    2083                 goto _block6;
    2084               }
    2085             _block6__branch2: {}
    2086               if (!_vt_1.term_eq (_c_1, 0))
    2087               {
    2088                 goto _continue3;
    2089               }
     2063                Expr _ve__e__e_tmp_m_rfp__formatrf_m_225_m_21 (_v_deref__erm, 1, _v_len___e__e_tmp_m_rfp__formatrf_m_225_m_21);
     2064              }
     2065            _block7: {}
    20902066              RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
    2091             }
    2092           _block6: {}
    2093           }
    2094         _block5: {}
     2067              goto _block6;
     2068            }
     2069          _block6__branch1: {}
     2070            {
     2071              if (!_vt_1.symbol_at (0))
     2072              {
     2073                goto _block6__branch2;
     2074              }
     2075              Expr _vs_ObjectSymbol (_vt_1, 0, 1);
     2076              RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
     2077              goto _block6;
     2078            }
     2079          _block6__branch2: {}
     2080            if (!_vt_1.term_eq (_c_1, 0))
     2081            {
     2082              goto _continue3;
     2083            }
     2084            RF_TAILCALL (Empty_m_Expr_q_, _ve_2, /*void*/);
     2085          }
     2086        _block6: {}
    20952087          goto _exit3;
    20962088        }
     
    21452137          Expr _ve_2 (_v_lsplit__Format24, 1, _v_len__23);
    21462138          {
    2147             {
    2148               Expr _vt_0;
    2149               if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
    2150               {
    2151                 goto _block8__branch1;
    2152               }
    2153               {
    2154                 if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
    2155                 {
    2156                   goto _negation4;
    2157                 }
    2158                 goto _block8__branch1;
    2159               }
    2160             _negation4: {}
     2139            Expr _vt_0;
     2140            if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
     2141            {
     2142              goto _block8__branch1;
     2143            }
     2144            {
     2145              if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
     2146              {
     2147                goto _negation4;
     2148              }
     2149              goto _block8__branch1;
     2150            }
     2151          _negation4: {}
     2152            RF_RETFAIL;
     2153          }
     2154        _block8__branch1: {}
     2155          {
     2156            {
     2157              if (_vt_1.symbol_at (0))
     2158              {
     2159                goto _block9__branch1;
     2160              }
     2161              Expr _v_deref__14 (_vt_1, 0);
     2162              if ((_v_deref__14.get_len () != 2))
     2163              {
     2164                goto _block9__branch1;
     2165              }
     2166              if (!_c_0.term_eq (_v_deref__14, 0))
     2167              {
     2168                goto _block9__branch1;
     2169              }
     2170              Expr _vt_Name (_v_deref__14, 1, 1);
     2171              Expr _v_Get_m_Const_m_Term3;
     2172              if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term3))
     2173              {
     2174                goto _block9__branch1;
     2175              }
     2176              Expr _vt_erm (_v_Get_m_Const_m_Term3, 0, 1);
     2177              if (_vt_erm.symbol_at (0))
     2178              {
     2179                RF_RETFAIL;
     2180              }
     2181              Expr _v_deref__erm2 (_vt_erm, 0);
     2182              uintptr_t _v_len17 = _v_deref__erm2.get_len ();
     2183              uintptr_t _v_len18 = 1;
     2184              if ((_v_len17 < _v_len18))
     2185              {
     2186                RF_RETFAIL;
     2187              }
     2188              uintptr_t _v_len__Format22 = (_v_len17 - _v_len18);
     2189              if (!_c_4.term_eq (_v_deref__erm2, 0))
     2190              {
     2191                RF_RETFAIL;
     2192              }
     2193              Expr _ve_Format22 (_v_deref__erm2, 1, _v_len__Format22);
     2194              if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
     2195              {
     2196                RF_RETFAIL;
     2197              }
     2198              RF_TAILCALL (Subformat_q_, (_ve_Format11, _ve_Format22), /*void*/);
     2199              goto _block9;
     2200            }
     2201          _block9__branch1: {}
     2202            if (_vt_1.symbol_at (0))
     2203            {
     2204              goto _continue4;
     2205            }
     2206            Expr _v_deref__15 (_vt_1, 0);
     2207            uintptr_t _v_len19 = _v_deref__15.get_len ();
     2208            uintptr_t _v_len20 = 1;
     2209            if ((_v_len19 < _v_len20))
     2210            {
     2211              goto _continue4;
     2212            }
     2213            uintptr_t _v_len__Format222 = (_v_len19 - _v_len20);
     2214            if (!_c_4.term_eq (_v_deref__15, 0))
     2215            {
     2216              goto _continue4;
     2217            }
     2218            Expr _ve_Format22 (_v_deref__15, 1, _v_len__Format222);
     2219            if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
     2220            {
    21612221              RF_RETFAIL;
    2162               goto _block8;
    2163             }
    2164           _block8__branch1: {}
    2165             {
    2166               {
    2167                 if (_vt_1.symbol_at (0))
    2168                 {
    2169                   goto _block9__branch1;
    2170                 }
    2171                 Expr _v_deref__14 (_vt_1, 0);
    2172                 if ((_v_deref__14.get_len () != 2))
    2173                 {
    2174                   goto _block9__branch1;
    2175                 }
    2176                 if (!_c_0.term_eq (_v_deref__14, 0))
    2177                 {
    2178                   goto _block9__branch1;
    2179                 }
    2180                 Expr _vt_Name (_v_deref__14, 1, 1);
    2181                 Expr _v_Get_m_Const_m_Term3;
    2182                 if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term3))
    2183                 {
    2184                   goto _block9__branch1;
    2185                 }
    2186                 Expr _vt_erm (_v_Get_m_Const_m_Term3, 0, 1);
    2187                 if (_vt_erm.symbol_at (0))
    2188                 {
    2189                   RF_RETFAIL;
    2190                 }
    2191                 Expr _v_deref__erm2 (_vt_erm, 0);
    2192                 uintptr_t _v_len17 = _v_deref__erm2.get_len ();
    2193                 uintptr_t _v_len18 = 1;
    2194                 if ((_v_len17 < _v_len18))
    2195                 {
    2196                   RF_RETFAIL;
    2197                 }
    2198                 uintptr_t _v_len__Format22 = (_v_len17 - _v_len18);
    2199                 if (!_c_4.term_eq (_v_deref__erm2, 0))
    2200                 {
    2201                   RF_RETFAIL;
    2202                 }
    2203                 Expr _ve_Format22 (_v_deref__erm2, 1, _v_len__Format22);
    2204                 if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
    2205                 {
    2206                   RF_RETFAIL;
    2207                 }
    2208                 RF_TAILCALL (Subformat_q_, (_ve_Format11, _ve_Format22), /*void*/);
    2209                 goto _block9;
    2210               }
    2211             _block9__branch1: {}
    2212               if (_vt_1.symbol_at (0))
    2213               {
    2214                 goto _continue4;
    2215               }
    2216               Expr _v_deref__15 (_vt_1, 0);
    2217               uintptr_t _v_len19 = _v_deref__15.get_len ();
    2218               uintptr_t _v_len20 = 1;
    2219               if ((_v_len19 < _v_len20))
    2220               {
    2221                 goto _continue4;
    2222               }
    2223               uintptr_t _v_len__Format222 = (_v_len19 - _v_len20);
    2224               if (!_c_4.term_eq (_v_deref__15, 0))
    2225               {
    2226                 goto _continue4;
    2227               }
    2228               Expr _ve_Format22 (_v_deref__15, 1, _v_len__Format222);
    2229               if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
    2230               {
    2231                 RF_RETFAIL;
    2232               }
    2233               RF_TAILCALL (Subformat_q_, (_ve_Format11, _ve_Format22), /*void*/);
    2234             }
    2235           _block9: {}
    2236           }
    2237         _block8: {}
     2222            }
     2223            RF_TAILCALL (Subformat_q_, (_ve_Format11, _ve_Format22), /*void*/);
     2224          }
     2225        _block9: {}
    22382226          goto _exit4;
    22392227        }
     
    22762264          Expr _ve_2 (_v_lsplit__Format25, 1, _v_len__24);
    22772265          {
    2278             {
    2279               Expr _vt_0;
    2280               if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
    2281               {
    2282                 goto _block10__branch1;
    2283               }
    2284               {
    2285                 if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
    2286                 {
    2287                   goto _negation5;
    2288                 }
    2289                 goto _block10__branch1;
    2290               }
    2291             _negation5: {}
     2266            Expr _vt_0;
     2267            if (!RF_CALL (Access::R, (_c_9, _ve_0), _vt_0))
     2268            {
     2269              goto _block10__branch1;
     2270            }
     2271            {
     2272              if (!RF_CALL (Empty_m_Expr_q_, _vt_0, /*void*/))
     2273              {
     2274                goto _negation5;
     2275              }
     2276              goto _block10__branch1;
     2277            }
     2278          _negation5: {}
     2279            RF_RETFAIL;
     2280          }
     2281        _block10__branch1: {}
     2282          {
     2283            {
     2284              if (_vt_1.symbol_at (0))
     2285              {
     2286                goto _block11__branch1;
     2287              }
     2288              Expr _v_deref__16 (_vt_1, 0);
     2289              if ((_v_deref__16.get_len () != 2))
     2290              {
     2291                goto _block11__branch1;
     2292              }
     2293              if (!_c_0.term_eq (_v_deref__16, 0))
     2294              {
     2295                goto _block11__branch1;
     2296              }
     2297              Expr _vt_Name (_v_deref__16, 1, 1);
     2298              Expr _v_Get_m_Const_m_Term4;
     2299              if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term4))
     2300              {
     2301                goto _block11__branch1;
     2302              }
     2303              Expr _vt_erm (_v_Get_m_Const_m_Term4, 0, 1);
     2304              if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
     2305              {
     2306                RF_RETFAIL;
     2307              }
     2308              if (!_vs_ObjectSymbol.term_eq (_vt_erm, 0))
     2309              {
     2310                RF_RETFAIL;
     2311              }
     2312              goto _block11;
     2313            }
     2314          _block11__branch1: {}
     2315            if (!_vt_1.symbol_at (0))
     2316            {
     2317              goto _continue5;
     2318            }
     2319            Expr _vs_ymbol (_vt_1, 0, 1);
     2320            if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
     2321            {
    22922322              RF_RETFAIL;
    2293               goto _block10;
    2294             }
    2295           _block10__branch1: {}
    2296             {
    2297               {
    2298                 if (_vt_1.symbol_at (0))
    2299                 {
    2300                   goto _block11__branch1;
    2301                 }
    2302                 Expr _v_deref__16 (_vt_1, 0);
    2303                 if ((_v_deref__16.get_len () != 2))
    2304                 {
    2305                   goto _block11__branch1;
    2306                 }
    2307                 if (!_c_0.term_eq (_v_deref__16, 0))
    2308                 {
    2309                   goto _block11__branch1;
    2310                 }
    2311                 Expr _vt_Name (_v_deref__16, 1, 1);
    2312                 Expr _v_Get_m_Const_m_Term4;
    2313                 if (!RF_CALL (Get_m_Const_m_Term, _vt_Name, _v_Get_m_Const_m_Term4))
    2314                 {
    2315                   goto _block11__branch1;
    2316                 }
    2317                 Expr _vt_erm (_v_Get_m_Const_m_Term4, 0, 1);
    2318                 if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
    2319                 {
    2320                   RF_RETFAIL;
    2321                 }
    2322                 if (!_vs_ObjectSymbol.term_eq (_vt_erm, 0))
    2323                 {
    2324                   RF_RETFAIL;
    2325                 }
    2326                 goto _block11;
    2327               }
    2328             _block11__branch1: {}
    2329               if (!_vt_1.symbol_at (0))
    2330               {
    2331                 goto _continue5;
    2332               }
    2333               Expr _vs_ymbol (_vt_1, 0, 1);
    2334               if (!RF_CALL (Empty_m_Expr_q_, _ve_2, /*void*/))
    2335               {
    2336                 RF_RETFAIL;
    2337               }
    2338               if (!_vs_ObjectSymbol.term_eq (_vs_ymbol, 0))
    2339               {
    2340                 RF_RETFAIL;
    2341               }
    2342             }
    2343           _block11: {}
    2344           }
    2345         _block10: {}
     2323            }
     2324            if (!_vs_ObjectSymbol.term_eq (_vs_ymbol, 0))
     2325            {
     2326              RF_RETFAIL;
     2327            }
     2328          }
     2329        _block11: {}
    23462330          goto _exit5;
    23472331        }
     
    24522436        }
    24532437        {
    2454           {
    2455             if (!_vs_success_q_.term_eq (_c_9, 0))
    2456             {
    2457               goto _block12__branch1;
    2458             }
    2459             RF_RETFAIL;
    2460             goto _block12;
    2461           }
    2462         _block12__branch1: {}
    2463           RF_TAILCALL (Subformat_q_, (_ve_Format1, _ve_format), /*void*/);
    2464         }
    2465       _block12: {}
     2438          if (!_vs_success_q_.term_eq (_c_9, 0))
     2439          {
     2440            goto _block12__branch1;
     2441          }
     2442          RF_RETFAIL;
     2443        }
     2444      _block12__branch1: {}
     2445        RF_TAILCALL (Subformat_q_, (_ve_Format1, _ve_format), /*void*/);
    24662446        goto _exit__iter1;
    24672447      }
  • to-imperative/trunk/bootstrap/compiler/rfp_lex.cc

    r1712 r1774  
    28152815static void init_ ()
    28162816{
    2817   Source = new rftype::StaticObject<rftype::Box>(L"Source");
    2818   Position = new rftype::StaticObject<rftype::Box>(L"Position");
    2819   Source_m_Index = new rftype::StaticObject<rftype::Box>(L"Source-Index");
    2820   Saved_m_Sources = new rftype::StaticObject<rftype::Box>(L"Saved-Sources");
    2821   Src_m_Counter = new rftype::StaticObject<rftype::Box>(L"Src-Counter");
     2817  Source = Expr::create_sym< NamedObject<BoxContents> >(L"Source");
     2818  Position = Expr::create_sym< NamedObject<BoxContents> >(L"Position");
     2819  Source_m_Index = Expr::create_sym< NamedObject<BoxContents> >(L"Source-Index");
     2820  Saved_m_Sources = Expr::create_sym< NamedObject<BoxContents> >(L"Saved-Sources");
     2821  Src_m_Counter = Expr::create_sym< NamedObject<BoxContents> >(L"Src-Counter");
    28222822  _c_0 = Expr::create<Integer>("0");
    28232823  _c_1 = Char::create_expr ("Error: cannot open source file ");
  • to-imperative/trunk/bootstrap/compiler/rfp_parse.cc

    r1712 r1774  
    838838      {
    839839        {
    840           {
    841             if (!_vs_message.term_eq (_c_51, 0))
    842             {
    843               goto _block3__branch1;
    844             }
    845             goto _block3;
    846           }
    847         _block3__branch1: {}
    848           if (!_vs_type.term_eq (_c_24, 0))
    849           {
    850             goto _block2__branch1;
    851           }
    852         }
    853       _block3: {}
    854         Expr _v_Token_m_Descr1;
    855         RF_CALL (Token_m_Descr, _vs_type, _v_Token_m_Descr1);
    856         RF_CALL (rfp__err::RFP_m_Error, (_ve_pos, (_c_53 + _v_Token_m_Descr1)), /*void*/);
    857         goto _block2__branch1;
    858         goto _block2;
    859       }
    860     _block2__branch1: {}
    861       if (!RF_CALL (Get_m_Token, /*void*/, (_ve_pos, _vs_type, _ve_value)))
    862       {
    863         RF_RETFAIL;
    864       }
    865       _vs_message = _c_54;
    866     }
    867   _block2: {}
     840          if (!_vs_message.term_eq (_c_51, 0))
     841          {
     842            goto _block3__branch1;
     843          }
     844          goto _block3;
     845        }
     846      _block3__branch1: {}
     847        if (!_vs_type.term_eq (_c_24, 0))
     848        {
     849          goto _block2__branch1;
     850        }
     851      }
     852    _block3: {}
     853      Expr _v_Token_m_Descr1;
     854      RF_CALL (Token_m_Descr, _vs_type, _v_Token_m_Descr1);
     855      RF_CALL (rfp__err::RFP_m_Error, (_ve_pos, (_c_53 + _v_Token_m_Descr1)), /*void*/);
     856    }
     857  _block2__branch1: {}
     858    if (!RF_CALL (Get_m_Token, /*void*/, (_ve_pos, _vs_type, _ve_value)))
     859    {
     860      RF_RETFAIL;
     861    }
     862    _vs_message = _c_54;
    868863  }
    869864_exit__iter1: {}
     
    27102705  }
    27112706  {
    2712     {
    2713       if (!_vs_type.term_eq (_c_52, 0))
    2714       {
    2715         goto _block1__branch1;
    2716       }
    2717       RF_RETFAIL;
    2718       goto _block1;
    2719     }
    2720   _block1__branch1: {}
    2721     RF_TAILCALL (Unget_m_Token, (_ve_pos () + (_vs_type + _ve_value) ()), /*void*/);
    2722   }
    2723 _block1: {}
     2707    if (!_vs_type.term_eq (_c_52, 0))
     2708    {
     2709      goto _block1__branch1;
     2710    }
     2711    RF_RETFAIL;
     2712  }
     2713_block1__branch1: {}
     2714  RF_TAILCALL (Unget_m_Token, (_ve_pos () + (_vs_type + _ve_value) ()), /*void*/);
    27242715RF_END
    27252716
     
    39083899static void init_ ()
    39093900{
    3910   Module_m_Name_m_Box = new rftype::StaticObject<rftype::Box>(L"Module-Name-Box");
    3911   Saved_m_Position = new rftype::StaticObject<rftype::Box>(L"Saved-Position");
    3912   Unget_m_Stack = new rftype::StaticObject<rftype::Box>(L"Unget-Stack");
     3901  Module_m_Name_m_Box = Expr::create_sym< NamedObject<BoxContents> >(L"Module-Name-Box");
     3902  Saved_m_Position = Expr::create_sym< NamedObject<BoxContents> >(L"Saved-Position");
     3903  Unget_m_Stack = Expr::create_sym< NamedObject<BoxContents> >(L"Unget-Stack");
    39133904  Constants = new rftype::StaticObject<rftype::Table>(L"Constants");
    39143905  Names = new rftype::StaticObject<rftype::Table>(L"Names");
  • to-imperative/trunk/bootstrap/compiler/rfp_vars.cc

    r1712 r1774  
    25112511static void init_ ()
    25122512{
    2513   State = new rftype::StaticObject<rftype::Box>(L"State");
    2514   Var_m_Names = new rftype::StaticObject<rftype::Box>(L"Var-Names");
     2513  State = Expr::create_sym< NamedObject<BoxContents> >(L"State");
     2514  Var_m_Names = Expr::create_sym< NamedObject<BoxContents> >(L"Var-Names");
    25152515  Var_m_Indices = new rftype::StaticObject<rftype::Table>(L"Var-Indices");
    25162516  _c_0 = Expr::create<Word>("SVAR");
  • to-imperative/trunk/bootstrap/compiler/rfpc.cc

    r1712 r1774  
    830830          {
    831831            {
    832               goto _iter1;
    833               goto _exit__iter1;
    834             }
    835           _iter1: {}
    836             {
    837832              {
    838833                if (!_vs_type.term_eq (_c_22, 0))
     
    11331128            _block23: {}
    11341129              {
    1135                 {
    1136                   if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_37), /*void*/))
    1137                   {
    1138                     goto _block26__branch1;
    1139                   }
    1140                   uintptr_t _v_len29 = _ve_Items.get_len ();
    1141                   uintptr_t _v_len30 = 1;
    1142                   if ((_v_len29 < _v_len30))
    1143                   {
    1144                     goto _block26__branch1;
    1145                   }
    1146                   uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_230_m_65 = (_v_len29 - _v_len30);
    1147                   if (_ve_Items.symbol_at (0))
    1148                   {
    1149                     goto _block26__branch1;
    1150                   }
    1151                   Expr _v_deref__Items (_ve_Items, 0);
    1152                   uintptr_t _v_len31 = _v_deref__Items.get_len ();
    1153                   uintptr_t _v_len32 = 2;
    1154                   if ((_v_len31 < (_v_len32 + 1)))
    1155                   {
    1156                     goto _block26__branch1;
    1157                   }
    1158                   uintptr_t _v_len__headers = (_v_len31 - _v_len32);
    1159                   if (!_c_46.term_eq (_v_deref__Items, 0))
    1160                   {
    1161                     goto _block26__branch1;
    1162                   }
    1163                   Expr _ve__e__e_tmp_m_rfpcrf_m_230_m_65 (_ve_Items, 1, _v_len___e__e_tmp_m_rfpcrf_m_230_m_65);
    1164                   Expr _vt_asail_m_mod_m_name (_v_deref__Items, 1, 1);
    1165                   Expr _vv_headers (_v_deref__Items, 2, _v_len__headers);
    1166                   RF_CALL (Verbose, _c_50, /*void*/);
    1167                   Expr _ve_headers;
    1168                   RF_CALL (rfp__asail::RFP_m_ASAIL_m_To_m_CPP, (_vt_asail_m_mod_m_name, _vv_headers), _ve_headers);
    1169                   RF_CALL (Verbose, _c_51, /*void*/);
    1170                   Expr _vs_channel;
    1171                   Expr _vs_need_m_close_q_;
    1172                   RF_CALL (Open_m_Channel, (_ve_basename, _c_52), (_vs_channel, _vs_need_m_close_q_));
    1173                   RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_54 + _ve_headname + _c_53)), /*void*/);
    1174                   RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_55 + _ve_headname + _c_53)), /*void*/);
    1175                   RF_CALL (StdIO::PrintLN_e_, (_vs_channel, _c_56), /*void*/);
    1176                   RF_CALL (CPP_m_Pretty_m_Print, (_c_1, _vs_channel, empty, _ve_headers), /*void*/);
    1177                   RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_57 + _ve_headname + _c_53)), /*void*/);
    1178                   {
    1179                     {
    1180                       if (!_vs_need_m_close_q_.term_eq (_c_0, 0))
    1181                       {
    1182                         goto _block27__branch1;
    1183                       }
    1184                       RF_CALL (StdIO::Close_m_Channel, _vs_channel, /*void*/);
    1185                       goto _block27;
    1186                     }
    1187                   _block27__branch1: {}
    1188                   }
    1189                 _block27: {}
    1190                   {
    1191                     {
    1192                       if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_58), /*void*/))
    1193                       {
    1194                         goto _block28__branch1;
    1195                       }
    1196                       {
    1197                         if (!RF_CALL (Class::Channel_q_, _ve_basename, /*void*/))
    1198                         {
    1199                           goto _negation1;
    1200                         }
    1201                         goto _block28__branch1;
    1202                       }
    1203                     _negation1: {}
    1204                       Expr _ve_lowname;
    1205                       RF_CALL (Convert::To_m_Lower, _ve_filename, _ve_lowname);
    1206                       {
    1207                         if ((_ve_filename.get_len () != _ve_lowname.get_len ()))
    1208                         {
    1209                           goto _negation2;
    1210                         }
    1211                         if (!_ve_lowname.eq (_ve_filename, 0))
    1212                         {
    1213                           goto _negation2;
    1214                         }
    1215                         goto _block28__branch1;
    1216                       }
    1217                     _negation2: {}
    1218                       uintptr_t _v_len33 = _ve_basename.get_len ();
    1219                       uintptr_t _v_len34 = _ve_filename.get_len ();
    1220                       if ((_v_len33 < _v_len34))
    1221                       {
    1222                         goto _block26__branch1;
    1223                       }
    1224                       uintptr_t _v_len__dir = (_v_len33 - _v_len34);
    1225                       if (!_ve_filename.eq (_ve_basename, _v_len__dir))
    1226                       {
    1227                         goto _block26__branch1;
    1228                       }
    1229                       Expr _ve_dir (_ve_basename, 0, _v_len__dir);
    1230                       Expr _ve_lowbase ((_ve_dir + _ve_lowname));
    1231                       Expr _v_channel__1;
    1232                       Expr _v_need_m_close_q___1;
    1233                       RF_CALL (Open_m_Channel, (_ve_lowbase, _c_52), (_v_channel__1, _v_need_m_close_q___1));
    1234                       RF_CALL (rfp__helper::Subst, (RFP_m_Dir_m_Separator, _c_17, _ve_lowbase), _ve_headname);
    1235                       Expr _v_To_m_Word2;
    1236                       RF_CALL (Convert::To_m_Word, _ve_headname, _v_To_m_Word2);
    1237                       RF_CALL (CppMangle::Rfp2Cpp, _v_To_m_Word2, _ve_headname);
    1238                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_54 + _ve_headname + _c_53)), /*void*/);
    1239                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_55 + _ve_headname + _c_53)), /*void*/);
    1240                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_60 + _ve_basename + _c_59)), /*void*/);
    1241                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, _c_61), /*void*/);
    1242                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_64 + _ve_lowname + _c_63 + _ve_filename + _c_62)), /*void*/);
    1243                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, _c_65), /*void*/);
    1244                       RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_57 + _ve_headname + _c_53)), /*void*/);
    1245                       {
    1246                         {
    1247                           if (!_v_need_m_close_q___1.term_eq (_c_0, 0))
    1248                           {
    1249                             goto _block30__branch1;
    1250                           }
    1251                           RF_CALL (StdIO::Close_m_Channel, _v_channel__1, /*void*/);
    1252                           goto _block30;
    1253                         }
    1254                       _block30__branch1: {}
    1255                       }
    1256                     _block30: {}
    1257                       goto _block28;
    1258                     }
    1259                   _block28__branch1: {}
    1260                   }
    1261                 _block28: {}
     1130                if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_37), /*void*/))
     1131                {
    12621132                  goto _block26__branch1;
    1263                   goto _block26;
    1264                 }
    1265               _block26__branch1: {}
    1266                 if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_36), /*void*/))
    1267                 {
    1268                   goto _continue2;
    1269                 }
    1270                 uintptr_t _v_len35 = _ve_Items.get_len ();
    1271                 uintptr_t _v_len36 = 1;
    1272                 if ((_v_len35 < _v_len36))
    1273                 {
    1274                   goto _continue2;
    1275                 }
    1276                 uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_263_m_26 = (_v_len35 - _v_len36);
    1277                 if (_ve_Items.symbol_at (_v_len___e__e_tmp_m_rfpcrf_m_263_m_26))
    1278                 {
    1279                   goto _continue2;
    1280                 }
    1281                 Expr _v_deref__Items2 (_ve_Items, _v_len___e__e_tmp_m_rfpcrf_m_263_m_26);
    1282                 uintptr_t _v_len37 = _v_deref__Items2.get_len ();
    1283                 uintptr_t _v_len38 = 2;
    1284                 if ((_v_len37 < (_v_len38 + 1)))
    1285                 {
    1286                   goto _continue2;
    1287                 }
    1288                 uintptr_t _v_len__module2 = (_v_len37 - _v_len38);
    1289                 if (!_c_47.term_eq (_v_deref__Items2, 0))
    1290                 {
    1291                   goto _continue2;
    1292                 }
    1293                 Expr _ve__e__e_tmp_m_rfpcrf_m_263_m_26 (_ve_Items, 0, _v_len___e__e_tmp_m_rfpcrf_m_263_m_26);
    1294                 Expr _vt_asail_m_mod_m_name (_v_deref__Items2, 1, 1);
    1295                 Expr _vv_module (_v_deref__Items2, 2, _v_len__module2);
    1296                 Expr _ve_module;
    1297                 {
    1298                   {
    1299                     if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_66), /*void*/))
    1300                     {
    1301                       goto _block31__branch1;
    1302                     }
    1303                     _ve_module = _vv_module;
    1304                     goto _block31;
    1305                   }
    1306                 _block31__branch1: {}
    1307                   RF_CALL (Verbose, _c_67, /*void*/);
    1308                   RF_CALL (rfp__asail__optim::ASAIL_m_Optim, _vv_module, _ve_module);
    1309                   RF_CALL (Verbose, _c_68, /*void*/);
    1310                 }
    1311               _block31: {}
    1312                 RF_CALL (Verbose, _c_69, /*void*/);
    1313                 RF_CALL (rfp__asail::RFP_m_ASAIL_m_To_m_CPP, (_vt_asail_m_mod_m_name, _ve_module), _ve_module);
    1314                 RF_CALL (Verbose, _c_70, /*void*/);
     1133                }
     1134                uintptr_t _v_len29 = _ve_Items.get_len ();
     1135                uintptr_t _v_len30 = 1;
     1136                if ((_v_len29 < _v_len30))
     1137                {
     1138                  goto _block26__branch1;
     1139                }
     1140                uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_230_m_65 = (_v_len29 - _v_len30);
     1141                if (_ve_Items.symbol_at (0))
     1142                {
     1143                  goto _block26__branch1;
     1144                }
     1145                Expr _v_deref__Items (_ve_Items, 0);
     1146                uintptr_t _v_len31 = _v_deref__Items.get_len ();
     1147                uintptr_t _v_len32 = 2;
     1148                if ((_v_len31 < (_v_len32 + 1)))
     1149                {
     1150                  goto _block26__branch1;
     1151                }
     1152                uintptr_t _v_len__headers = (_v_len31 - _v_len32);
     1153                if (!_c_46.term_eq (_v_deref__Items, 0))
     1154                {
     1155                  goto _block26__branch1;
     1156                }
     1157                Expr _ve__e__e_tmp_m_rfpcrf_m_230_m_65 (_ve_Items, 1, _v_len___e__e_tmp_m_rfpcrf_m_230_m_65);
     1158                Expr _vt_asail_m_mod_m_name (_v_deref__Items, 1, 1);
     1159                Expr _vv_headers (_v_deref__Items, 2, _v_len__headers);
     1160                RF_CALL (Verbose, _c_50, /*void*/);
     1161                Expr _ve_headers;
     1162                RF_CALL (rfp__asail::RFP_m_ASAIL_m_To_m_CPP, (_vt_asail_m_mod_m_name, _vv_headers), _ve_headers);
     1163                RF_CALL (Verbose, _c_51, /*void*/);
    13151164                Expr _vs_channel;
    13161165                Expr _vs_need_m_close_q_;
    1317                 RF_CALL (Open_m_Channel, (_ve_basename, _c_71), (_vs_channel, _vs_need_m_close_q_));
    1318                 RF_CALL (StdIO::PrintLN_e_, (_vs_channel, _c_72), /*void*/);
    1319                 {
    1320                   Expr _v_Find_m_Includes1;
    1321                   RF_CALL (Find_m_Includes, /*void*/, _v_Find_m_Includes1);
    1322                   if ((_v_Find_m_Includes1.get_len () < 1))
    1323                   {
    1324                     goto _block32__branch1;
    1325                   }
    1326                   lsplit (_v_Find_m_Includes1, 0, _ve__e__e_tmp_m_rfpcrf_m_277_m_36, _v_lsplit__Find_m_Includes1);
    1327                   for ( ; ; iter(_v_Find_m_Includes1)++)
    1328                   {
    1329                     {
    1330                       if (!iter(_v_Find_m_Includes1))
     1166                RF_CALL (Open_m_Channel, (_ve_basename, _c_52), (_vs_channel, _vs_need_m_close_q_));
     1167                RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_54 + _ve_headname + _c_53)), /*void*/);
     1168                RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_55 + _ve_headname + _c_53)), /*void*/);
     1169                RF_CALL (StdIO::PrintLN_e_, (_vs_channel, _c_56), /*void*/);
     1170                RF_CALL (CPP_m_Pretty_m_Print, (_c_1, _vs_channel, empty, _ve_headers), /*void*/);
     1171                RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_57 + _ve_headname + _c_53)), /*void*/);
     1172                {
     1173                  {
     1174                    if (!_vs_need_m_close_q_.term_eq (_c_0, 0))
     1175                    {
     1176                      goto _block27__branch1;
     1177                    }
     1178                    RF_CALL (StdIO::Close_m_Channel, _vs_channel, /*void*/);
     1179                    goto _block27;
     1180                  }
     1181                _block27__branch1: {}
     1182                }
     1183              _block27: {}
     1184                {
     1185                  {
     1186                    if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_58), /*void*/))
     1187                    {
     1188                      goto _block28__branch1;
     1189                    }
     1190                    {
     1191                      if (!RF_CALL (Class::Channel_q_, _ve_basename, /*void*/))
    13311192                      {
    1332                         goto _block32__branch1;
     1193                        goto _negation1;
    13331194                      }
    1334                       uintptr_t _v_len39 = _v_lsplit__Find_m_Includes1.get_len ();
    1335                       uintptr_t _v_len40 = 1;
    1336                       if ((_v_len39 < _v_len40))
     1195                      goto _block28__branch1;
     1196                    }
     1197                  _negation1: {}
     1198                    Expr _ve_lowname;
     1199                    RF_CALL (Convert::To_m_Lower, _ve_filename, _ve_lowname);
     1200                    {
     1201                      if ((_ve_filename.get_len () != _ve_lowname.get_len ()))
    13371202                      {
    1338                         goto _block32__branch1;
     1203                        goto _negation2;
    13391204                      }
    1340                       uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_277_m_50 = (_v_len39 - _v_len40);
    1341                       if (_v_lsplit__Find_m_Includes1.symbol_at (0))
     1205                      if (!_ve_lowname.eq (_ve_filename, 0))
    13421206                      {
    1343                         goto _continue6;
     1207                        goto _negation2;
    13441208                      }
    1345                       Expr _v_deref__lsplit__Find_m_Includes1 (_v_lsplit__Find_m_Includes1, 0);
    1346                       uintptr_t _v_len41 = _v_deref__lsplit__Find_m_Includes1.get_len ();
    1347                       uintptr_t _v_len42 = 0;
    1348                       if ((_v_len41 < _v_len42))
     1209                      goto _block28__branch1;
     1210                    }
     1211                  _negation2: {}
     1212                    uintptr_t _v_len33 = _ve_basename.get_len ();
     1213                    uintptr_t _v_len34 = _ve_filename.get_len ();
     1214                    if ((_v_len33 < _v_len34))
     1215                    {
     1216                      goto _block26__branch1;
     1217                    }
     1218                    uintptr_t _v_len__dir = (_v_len33 - _v_len34);
     1219                    if (!_ve_filename.eq (_ve_basename, _v_len__dir))
     1220                    {
     1221                      goto _block26__branch1;
     1222                    }
     1223                    Expr _ve_dir (_ve_basename, 0, _v_len__dir);
     1224                    Expr _ve_lowbase ((_ve_dir + _ve_lowname));
     1225                    Expr _v_channel__1;
     1226                    Expr _v_need_m_close_q___1;
     1227                    RF_CALL (Open_m_Channel, (_ve_lowbase, _c_52), (_v_channel__1, _v_need_m_close_q___1));
     1228                    RF_CALL (rfp__helper::Subst, (RFP_m_Dir_m_Separator, _c_17, _ve_lowbase), _ve_headname);
     1229                    Expr _v_To_m_Word2;
     1230                    RF_CALL (Convert::To_m_Word, _ve_headname, _v_To_m_Word2);
     1231                    RF_CALL (CppMangle::Rfp2Cpp, _v_To_m_Word2, _ve_headname);
     1232                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_54 + _ve_headname + _c_53)), /*void*/);
     1233                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_55 + _ve_headname + _c_53)), /*void*/);
     1234                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_60 + _ve_basename + _c_59)), /*void*/);
     1235                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, _c_61), /*void*/);
     1236                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_64 + _ve_lowname + _c_63 + _ve_filename + _c_62)), /*void*/);
     1237                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, _c_65), /*void*/);
     1238                    RF_CALL (StdIO::PrintLN_e_, (_v_channel__1, (_c_57 + _ve_headname + _c_53)), /*void*/);
     1239                    {
    13491240                      {
    1350                         goto _continue6;
     1241                        if (!_v_need_m_close_q___1.term_eq (_c_0, 0))
     1242                        {
     1243                          goto _block30__branch1;
     1244                        }
     1245                        RF_CALL (StdIO::Close_m_Channel, _v_channel__1, /*void*/);
     1246                        goto _block30;
    13511247                      }
    1352                       uintptr_t _v_len__include = (_v_len41 - _v_len42);
    1353                       Expr _ve__e__e_tmp_m_rfpcrf_m_277_m_50 (_v_lsplit__Find_m_Includes1, 1, _v_len___e__e_tmp_m_rfpcrf_m_277_m_50);
    1354                       Expr _ve_include (_v_deref__lsplit__Find_m_Includes1, 0, _v_len__include);
    1355                       RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_73 + _ve_include)), /*void*/);
     1248                    _block30__branch1: {}
     1249                    }
     1250                  _block30: {}
     1251                    goto _block28;
     1252                  }
     1253                _block28__branch1: {}
     1254                }
     1255              _block28: {}
     1256              }
     1257            _block26__branch1: {}
     1258              if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_36), /*void*/))
     1259              {
     1260                goto _continue2;
     1261              }
     1262              uintptr_t _v_len35 = _ve_Items.get_len ();
     1263              uintptr_t _v_len36 = 1;
     1264              if ((_v_len35 < _v_len36))
     1265              {
     1266                goto _continue2;
     1267              }
     1268              uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_263_m_26 = (_v_len35 - _v_len36);
     1269              if (_ve_Items.symbol_at (_v_len___e__e_tmp_m_rfpcrf_m_263_m_26))
     1270              {
     1271                goto _continue2;
     1272              }
     1273              Expr _v_deref__Items2 (_ve_Items, _v_len___e__e_tmp_m_rfpcrf_m_263_m_26);
     1274              uintptr_t _v_len37 = _v_deref__Items2.get_len ();
     1275              uintptr_t _v_len38 = 2;
     1276              if ((_v_len37 < (_v_len38 + 1)))
     1277              {
     1278                goto _continue2;
     1279              }
     1280              uintptr_t _v_len__module2 = (_v_len37 - _v_len38);
     1281              if (!_c_47.term_eq (_v_deref__Items2, 0))
     1282              {
     1283                goto _continue2;
     1284              }
     1285              Expr _ve__e__e_tmp_m_rfpcrf_m_263_m_26 (_ve_Items, 0, _v_len___e__e_tmp_m_rfpcrf_m_263_m_26);
     1286              Expr _vt_asail_m_mod_m_name (_v_deref__Items2, 1, 1);
     1287              Expr _vv_module (_v_deref__Items2, 2, _v_len__module2);
     1288              Expr _ve_module;
     1289              {
     1290                {
     1291                  if (!RF_CALL (Table::In_m_Table_q_, (rfp__helper::RFP_m_Options, _c_66), /*void*/))
     1292                  {
     1293                    goto _block31__branch1;
     1294                  }
     1295                  _ve_module = _vv_module;
     1296                  goto _block31;
     1297                }
     1298              _block31__branch1: {}
     1299                RF_CALL (Verbose, _c_67, /*void*/);
     1300                RF_CALL (rfp__asail__optim::ASAIL_m_Optim, _vv_module, _ve_module);
     1301                RF_CALL (Verbose, _c_68, /*void*/);
     1302              }
     1303            _block31: {}
     1304              RF_CALL (Verbose, _c_69, /*void*/);
     1305              RF_CALL (rfp__asail::RFP_m_ASAIL_m_To_m_CPP, (_vt_asail_m_mod_m_name, _ve_module), _ve_module);
     1306              RF_CALL (Verbose, _c_70, /*void*/);
     1307              Expr _vs_channel;
     1308              Expr _vs_need_m_close_q_;
     1309              RF_CALL (Open_m_Channel, (_ve_basename, _c_71), (_vs_channel, _vs_need_m_close_q_));
     1310              RF_CALL (StdIO::PrintLN_e_, (_vs_channel, _c_72), /*void*/);
     1311              {
     1312                Expr _v_Find_m_Includes1;
     1313                RF_CALL (Find_m_Includes, /*void*/, _v_Find_m_Includes1);
     1314                if ((_v_Find_m_Includes1.get_len () < 1))
     1315                {
     1316                  goto _block32__branch1;
     1317                }
     1318                lsplit (_v_Find_m_Includes1, 0, _ve__e__e_tmp_m_rfpcrf_m_277_m_36, _v_lsplit__Find_m_Includes1);
     1319                for ( ; ; iter(_v_Find_m_Includes1)++)
     1320                {
     1321                  {
     1322                    if (!iter(_v_Find_m_Includes1))
     1323                    {
     1324                      goto _block32__branch1;
     1325                    }
     1326                    uintptr_t _v_len39 = _v_lsplit__Find_m_Includes1.get_len ();
     1327                    uintptr_t _v_len40 = 1;
     1328                    if ((_v_len39 < _v_len40))
     1329                    {
     1330                      goto _block32__branch1;
     1331                    }
     1332                    uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_277_m_50 = (_v_len39 - _v_len40);
     1333                    if (_v_lsplit__Find_m_Includes1.symbol_at (0))
     1334                    {
    13561335                      goto _continue6;
    13571336                    }
    1358                 _continue6: {}
    1359                   }
    1360                 }
    1361               _block32__branch1: {}
    1362                 RF_CALL (CPP_m_Pretty_m_Print, (_c_1, _vs_channel, empty, _ve_module), /*void*/);
    1363                 {
    1364                   {
    1365                     if (!_vs_need_m_close_q_.term_eq (_c_0, 0))
    1366                     {
    1367                       goto _block33__branch1;
    1368                     }
    1369                     RF_CALL (StdIO::Close_m_Channel, _vs_channel, /*void*/);
    1370                     goto _block33;
    1371                   }
    1372                 _block33__branch1: {}
    1373                 }
    1374               _block33: {}
    1375                 goto _continue2;
    1376               }
    1377             _block26: {}
     1337                    Expr _v_deref__lsplit__Find_m_Includes1 (_v_lsplit__Find_m_Includes1, 0);
     1338                    uintptr_t _v_len41 = _v_deref__lsplit__Find_m_Includes1.get_len ();
     1339                    uintptr_t _v_len42 = 0;
     1340                    if ((_v_len41 < _v_len42))
     1341                    {
     1342                      goto _continue6;
     1343                    }
     1344                    uintptr_t _v_len__include = (_v_len41 - _v_len42);
     1345                    Expr _ve__e__e_tmp_m_rfpcrf_m_277_m_50 (_v_lsplit__Find_m_Includes1, 1, _v_len___e__e_tmp_m_rfpcrf_m_277_m_50);
     1346                    Expr _ve_include (_v_deref__lsplit__Find_m_Includes1, 0, _v_len__include);
     1347                    RF_CALL (StdIO::PrintLN_e_, (_vs_channel, (_c_73 + _ve_include)), /*void*/);
     1348                    goto _continue6;
     1349                  }
     1350              _continue6: {}
     1351                }
     1352              }
     1353            _block32__branch1: {}
     1354              RF_CALL (CPP_m_Pretty_m_Print, (_c_1, _vs_channel, empty, _ve_module), /*void*/);
     1355              {
     1356                {
     1357                  if (!_vs_need_m_close_q_.term_eq (_c_0, 0))
     1358                  {
     1359                    goto _block33__branch1;
     1360                  }
     1361                  RF_CALL (StdIO::Close_m_Channel, _vs_channel, /*void*/);
     1362                  goto _block33;
     1363                }
     1364              _block33__branch1: {}
     1365              }
     1366            _block33: {}
     1367              goto _continue2;
    13781368            }
    13791369          _block13: {}
    13801370          }
    1381         _exit__iter1: {}
    1382           goto _exit2;
    13831371        }
    13841372    _continue2: {}
    13851373      }
    1386     _exit2: {}
    1387       goto _block1;
    13881374    }
    13891375  _block1__branch2: {}
     
    15921578        _block3: {}
    15931579          {
    1594             {
    1595               uintptr_t _v_len19 = _v_auxblock1.get_len ();
    1596               uintptr_t _v_len20 = 1;
    1597               if ((_v_len19 < _v_len20))
    1598               {
    1599                 goto _block5__branch1;
    1600               }
    1601               uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_355_m_19 = (_v_len19 - _v_len20);
    1602               if (!_v_auxblock1.symbol_at (0))
    1603               {
    1604                 goto _block5__branch1;
    1605               }
    1606               Expr _vs_phrase (_v_auxblock1, 0, 1);
    1607               Expr _ve__e__e_tmp_m_rfpcrf_m_355_m_19 (_v_auxblock1, 1, _v_len___e__e_tmp_m_rfpcrf_m_355_m_19);
    1608               Expr _v__q_2;
    1609               RF_CALL (Box::_q_, _vs_line, _v__q_2);
    1610               Expr _v__q_3;
    1611               RF_CALL (Box::_q_, _vs_line, _v__q_3);
    1612               Expr _v_Length1;
    1613               RF_CALL (Access::Length, _v__q_3, _v_Length1);
    1614               Expr _v__m_1;
    1615               RF_CALL (Arithm::_m_, (_vs_2nd_m_col, _v_Length1), _v__m_1);
    1616               Expr _v_Repeat1;
    1617               RF_CALL (rfp__helper::Repeat, (_v__m_1, _c_11), _v_Repeat1);
    1618               RF_CALL (StdIO::PrintLN, (_v__q_2 + _v_Repeat1 + _vs_phrase), /*void*/);
     1580            uintptr_t _v_len19 = _v_auxblock1.get_len ();
     1581            uintptr_t _v_len20 = 1;
     1582            if ((_v_len19 < _v_len20))
     1583            {
    16191584              goto _block5__branch1;
    1620               goto _block5;
    1621             }
    1622           _block5__branch1: {}
    1623             if ((_v_auxblock1.get_len () < 2))
    1624             {
    1625               goto _continue1;
    1626             }
    1627             lsplit (_v_auxblock1, 0, _ve__e__e_tmp_m_rfpcrf_m_362_m_10, _v_lsplit__auxblock1);
    1628             for ( ; ; iter(_v_auxblock1)++)
    1629             {
    1630               {
    1631                 if (!iter(_v_auxblock1))
    1632                 {
    1633                   goto _continue1;
    1634                 }
    1635                 uintptr_t _v_len21 = _v_lsplit__auxblock1.get_len ();
    1636                 uintptr_t _v_len22 = 2;
    1637                 if ((_v_len21 < _v_len22))
    1638                 {
    1639                   goto _continue1;
    1640                 }
    1641                 uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_362_m_23 = (_v_len21 - _v_len22);
    1642                 if (!_v_lsplit__auxblock1.symbol_at (0))
    1643                 {
    1644                   goto _continue4;
    1645                 }
    1646                 if (!_v_lsplit__auxblock1.symbol_at (1))
    1647                 {
    1648                   goto _continue4;
    1649                 }
    1650                 Expr _vs__e__e_tmp_m_rfpcrf_m_362_m_12 (_v_lsplit__auxblock1, 0, 1);
    1651                 Expr _vs_phrase (_v_lsplit__auxblock1, 1, 1);
    1652                 Expr _ve__e__e_tmp_m_rfpcrf_m_362_m_23 (_v_lsplit__auxblock1, 2, _v_len___e__e_tmp_m_rfpcrf_m_362_m_23);
    1653                 RF_CALL (StdIO::PrintLN, (_ve_start2 + _vs_phrase), /*void*/);
     1585            }
     1586            uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_355_m_19 = (_v_len19 - _v_len20);
     1587            if (!_v_auxblock1.symbol_at (0))
     1588            {
     1589              goto _block5__branch1;
     1590            }
     1591            Expr _vs_phrase (_v_auxblock1, 0, 1);
     1592            Expr _ve__e__e_tmp_m_rfpcrf_m_355_m_19 (_v_auxblock1, 1, _v_len___e__e_tmp_m_rfpcrf_m_355_m_19);
     1593            Expr _v__q_2;
     1594            RF_CALL (Box::_q_, _vs_line, _v__q_2);
     1595            Expr _v__q_3;
     1596            RF_CALL (Box::_q_, _vs_line, _v__q_3);
     1597            Expr _v_Length1;
     1598            RF_CALL (Access::Length, _v__q_3, _v_Length1);
     1599            Expr _v__m_1;
     1600            RF_CALL (Arithm::_m_, (_vs_2nd_m_col, _v_Length1), _v__m_1);
     1601            Expr _v_Repeat1;
     1602            RF_CALL (rfp__helper::Repeat, (_v__m_1, _c_11), _v_Repeat1);
     1603            RF_CALL (StdIO::PrintLN, (_v__q_2 + _v_Repeat1 + _vs_phrase), /*void*/);
     1604          }
     1605        _block5__branch1: {}
     1606          if ((_v_auxblock1.get_len () < 2))
     1607          {
     1608            goto _continue1;
     1609          }
     1610          lsplit (_v_auxblock1, 0, _ve__e__e_tmp_m_rfpcrf_m_362_m_10, _v_lsplit__auxblock1);
     1611          for ( ; ; iter(_v_auxblock1)++)
     1612          {
     1613            {
     1614              if (!iter(_v_auxblock1))
     1615              {
     1616                goto _continue1;
     1617              }
     1618              uintptr_t _v_len21 = _v_lsplit__auxblock1.get_len ();
     1619              uintptr_t _v_len22 = 2;
     1620              if ((_v_len21 < _v_len22))
     1621              {
     1622                goto _continue1;
     1623              }
     1624              uintptr_t _v_len___e__e_tmp_m_rfpcrf_m_362_m_23 = (_v_len21 - _v_len22);
     1625              if (!_v_lsplit__auxblock1.symbol_at (0))
     1626              {
    16541627                goto _continue4;
    16551628              }
    1656           _continue4: {}
    1657             }
    1658           }
    1659         _block5: {}
     1629              if (!_v_lsplit__auxblock1.symbol_at (1))
     1630              {
     1631                goto _continue4;
     1632              }
     1633              Expr _vs__e__e_tmp_m_rfpcrf_m_362_m_12 (_v_lsplit__auxblock1, 0, 1);
     1634              Expr _vs_phrase (_v_lsplit__auxblock1, 1, 1);
     1635              Expr _ve__e__e_tmp_m_rfpcrf_m_362_m_23 (_v_lsplit__auxblock1, 2, _v_len___e__e_tmp_m_rfpcrf_m_362_m_23);
     1636              RF_CALL (StdIO::PrintLN, (_ve_start2 + _vs_phrase), /*void*/);
     1637              goto _continue4;
     1638            }
     1639        _continue4: {}
     1640          }
    16601641          goto _exit1;
    16611642        }
     
    30583039  RFP_m_Root = Char::create_expr ("/usr");
    30593040  RFP_m_Default_m_Include_m_Path = (Char::create_expr ("/usr/include/refal-plus")) () + (Char::create_expr ("/usr/local/include/refal-plus")) ();
    3060   RFP_m_Include_m_Path = new rftype::StaticObject<rftype::Box>(L"RFP-Include-Path");
    3061   RFP_m_Token_m_Stack = new rftype::StaticObject<rftype::Box>(L"RFP-Token-Stack");
     3041  RFP_m_Include_m_Path = Expr::create_sym< NamedObject<BoxContents> >(L"RFP-Include-Path");
     3042  RFP_m_Token_m_Stack = Expr::create_sym< NamedObject<BoxContents> >(L"RFP-Token-Stack");
    30623043  RevDate = (Char::create_expr ("$Revision: 1.41 $")) () + (Char::create_expr ("$Date: 2005/02/02 12:12:33 $")) ();
    3063   Options = new rftype::StaticObject<rftype::Box>(L"Options");
     3044  Options = Expr::create_sym< NamedObject<BoxContents> >(L"Options");
    30643045  Tab = Char::create_expr ("  ");
    30653046  _c_0 = Expr::create<Integer>("1");
Note: See TracChangeset for help on using the changeset viewer.