Changeset 1996


Ignore:
Timestamp:
Jun 15, 2006, 5:19:09 AM (15 years ago)
Author:
orlov
Message:
  • iter, lsplit, and rsplit are renamed to RF_iter, RF_lsplit, and RF_rsplit.
Location:
to-imperative/trunk/bootstrap/compiler
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • to-imperative/trunk/bootstrap/compiler/rfp_as2as.cc

    r1894 r1996  
    153153              Expr _vt_name (_v_deref__item, 3, 1);
    154154              Expr _ve__e__e_tmp_m_rfp__as2asrf_m_49_m_33 (_v_deref__item, 4, _v_len___e__e_tmp_m_rfp__as2asrf_m_49_m_33);
    155               lsplit (_ve_targets, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_48_m_22, _v_lsplit__targets);
    156               for ( ; ; iter(_ve_targets)++)
     155              RF_lsplit (_ve_targets, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_48_m_22, _v_lsplit__targets);
     156              for ( ; ; RF_iter(_ve_targets)++)
    157157              {
    158158                {
    159                   if (!iter(_ve_targets))
     159                  if (!RF_iter(_ve_targets))
    160160                  {
    161161                    goto _block2__branch1;
    … …  
    290290
    291291RF_FUNC (Unstick_m_Blocks, (RF_ARG _ve_Sentence;;), (RF_RES _v_res1, _v_res2;;))
    292   lsplit (_ve_Sentence, 0, _ve_L, _ve_Snt);
    293   for ( ; ; iter(_ve_Sentence)++)
     292  RF_lsplit (_ve_Sentence, 0, _ve_L, _ve_Snt);
     293  for ( ; ; RF_iter(_ve_Sentence)++)
    294294  {
    295295    {
    296       if (!iter(_ve_Sentence))
     296      if (!RF_iter(_ve_Sentence))
    297297      {
    298298        RF_FUNC_ERROR (unexpected_fail);
    … …  
    10511051              goto _negation1;
    10521052            }
    1053             lsplit (_ve_args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_136_m_24, _v_lsplit__args);
    1054             for ( ; ; iter(_ve_args)++)
    1055             {
    1056               {
    1057                 if (!iter(_ve_args))
     1053            RF_lsplit (_ve_args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_136_m_24, _v_lsplit__args);
     1054            for ( ; ; RF_iter(_ve_args)++)
     1055            {
     1056              {
     1057                if (!RF_iter(_ve_args))
    10581058                {
    10591059                  goto _negation1;
    … …  
    10781078                Expr _vt_1 (_v_deref__lsplit__args, _v_len___e__e_tmp_m_rfp__as2asrf_m_136_m_27, 1);
    10791079                Expr _v_subexpr__lsplit__args (_v_lsplit__args, 1, (_v_lsplit__args.get_len () - 1));
    1080                 lsplit (_v_subexpr__lsplit__args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_136_m_33, _v_lsplit__lsplit__args);
    1081                 for ( ; ; iter(_v_subexpr__lsplit__args)++)
     1080                RF_lsplit (_v_subexpr__lsplit__args, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_136_m_33, _v_lsplit__lsplit__args);
     1081                for ( ; ; RF_iter(_v_subexpr__lsplit__args)++)
    10821082                {
    10831083                  {
    1084                     if (!iter(_v_subexpr__lsplit__args))
     1084                    if (!RF_iter(_v_subexpr__lsplit__args))
    10851085                    {
    10861086                      goto _continue1;
    … …  
    12481248              goto _negation2;
    12491249            }
    1250             lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_155_m_26, _v_lsplit__vars);
    1251             for ( ; ; iter(_ve_vars)++)
    1252             {
    1253               {
    1254                 if (!iter(_ve_vars))
     1250            RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_155_m_26, _v_lsplit__vars);
     1251            for ( ; ; RF_iter(_ve_vars)++)
     1252            {
     1253              {
     1254                if (!RF_iter(_ve_vars))
    12551255                {
    12561256                  goto _negation2;
    … …  
    12751275                Expr _vt_1 (_v_deref__lsplit__vars, _v_len___e__e_tmp_m_rfp__as2asrf_m_155_m_29, 1);
    12761276                Expr _v_subexpr__lsplit__vars (_v_lsplit__vars, 1, (_v_lsplit__vars.get_len () - 1));
    1277                 lsplit (_v_subexpr__lsplit__vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_155_m_35, _v_lsplit__lsplit__vars);
    1278                 for ( ; ; iter(_v_subexpr__lsplit__vars)++)
     1277                RF_lsplit (_v_subexpr__lsplit__vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_155_m_35, _v_lsplit__lsplit__vars);
     1278                for ( ; ; RF_iter(_v_subexpr__lsplit__vars)++)
    12791279                {
    12801280                  {
    1281                     if (!iter(_v_subexpr__lsplit__vars))
     1281                    if (!RF_iter(_v_subexpr__lsplit__vars))
    12821282                    {
    12831283                      goto _continue3;
    … …  
    17411741                goto _block6__branch1;
    17421742              }
    1743               lsplit (_ve_bl_m_res_m_vars, 0, _ve_1, _v_lsplit__bl_m_res_m_vars);
    1744               for ( ; ; iter(_ve_bl_m_res_m_vars)++)
     1743              RF_lsplit (_ve_bl_m_res_m_vars, 0, _ve_1, _v_lsplit__bl_m_res_m_vars);
     1744              for ( ; ; RF_iter(_ve_bl_m_res_m_vars)++)
    17451745              {
    17461746                {
    1747                   if (!iter(_ve_bl_m_res_m_vars))
     1747                  if (!RF_iter(_ve_bl_m_res_m_vars))
    17481748                  {
    17491749                    goto _block6__branch1;
    … …  
    17711771                  Expr _ve__e__e_tmp_m_rfp__as2asrf_m_231_m_32 (_v_deref__lsplit__bl_m_res_m_vars, 0, _v_len___e__e_tmp_m_rfp__as2asrf_m_231_m_32);
    17721772                  Expr _vt_name (_v_deref__lsplit__bl_m_res_m_vars, _v_len___e__e_tmp_m_rfp__as2asrf_m_231_m_32, 1);
    1773                   lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_231_m_55, _v_lsplit__vars);
    1774                   for ( ; ; iter(_ve_vars)++)
     1773                  RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_231_m_55, _v_lsplit__vars);
     1774                  for ( ; ; RF_iter(_ve_vars)++)
    17751775                  {
    17761776                    {
    1777                       if (!iter(_ve_vars))
     1777                      if (!RF_iter(_ve_vars))
    17781778                      {
    17791779                        goto _continue1;
    … …  
    19751975    RF_RETFAIL;
    19761976  }
    1977   lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_263_m_57, _v_lsplit__vars);
    1978   for ( ; ; iter(_ve_vars)++)
     1977  RF_lsplit (_ve_vars, 0, _ve__e__e_tmp_m_rfp__as2asrf_m_263_m_57, _v_lsplit__vars);
     1978  for ( ; ; RF_iter(_ve_vars)++)
    19791979  {
    19801980    {
    1981       if (!iter(_ve_vars))
     1981      if (!RF_iter(_ve_vars))
    19821982      {
    19831983        RF_RETFAIL;

  • to-imperative/trunk/bootstrap/compiler/rfp_asail_cpp.cc

    r1913 r1996  
    43284328  _c_44 = (Char::create_expr ("RF_FUNC_ERROR (unexpected_fail);")) ();
    43294329  _c_45 = Expr::create<Word>("LSPLIT");
    4330   _c_46 = Char::create_expr ("lsplit (");
     4330  _c_46 = Char::create_expr ("RF_lsplit (");
    43314331  _c_47 = Expr::create<Word>("RSPLIT");
    4332   _c_48 = Char::create_expr ("rsplit (");
     4332  _c_48 = Char::create_expr ("RF_rsplit (");
    43334333  _c_49 = Expr::create<Word>("ASSIGN");
    43344334  _c_50 = Expr::create<Word>("DECL");
    … …  
    43964396  _c_113 = Char::create_expr (".flat_at (");
    43974397  _c_114 = Expr::create<Word>("CHECK-ITER");
    4398   _c_115 = Char::create_expr ("iter(");
     4398  _c_115 = Char::create_expr ("RF_iter(");
    43994399  _c_116 = Expr::create<Word>("EQ");
    44004400  _c_117 = Char::create_expr (".eq (");

  • to-imperative/trunk/bootstrap/compiler/rfp_asail_java.cc

    r1904 r1996  
    10801080                goto _block7__branch1;
    10811081              }
    1082               lsplit (_v__q_9, 0, _ve__e__e_tmp_m_rfp__asail__javarf_m_166_m_22, _v_lsplit___q_9);
    1083               for ( ; ; iter(_v__q_9)++)
     1082              RF_lsplit (_v__q_9, 0, _ve__e__e_tmp_m_rfp__asail__javarf_m_166_m_22, _v_lsplit___q_9);
     1083              for ( ; ; RF_iter(_v__q_9)++)
    10841084              {
    10851085                {
    1086                   if (!iter(_v__q_9))
     1086                  if (!RF_iter(_v__q_9))
    10871087                  {
    10881088                    goto _block7__branch1;
    … …  
    17111711          goto _block2__branch1;
    17121712        }
    1713         lsplit (_ve_ress, 0, _ve__e__e_tmp_m_rfp__asail__javarf_m_239_m_17, _v_lsplit__ress);
    1714         for ( ; ; iter(_ve_ress)++)
    1715         {
    1716           {
    1717             if (!iter(_ve_ress))
     1713        RF_lsplit (_ve_ress, 0, _ve__e__e_tmp_m_rfp__asail__javarf_m_239_m_17, _v_lsplit__ress);
     1714        for ( ; ; RF_iter(_ve_ress)++)
     1715        {
     1716          {
     1717            if (!RF_iter(_ve_ress))
    17181718            {
    17191719              goto _block2__branch1;
    … …  
    38353835        goto _block1__branch1;
    38363836      }
    3837       lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__asail__javarf_m_517_m_19, _v_lsplit___q_1);
    3838       for ( ; ; iter(_v__q_1)++)
    3839       {
    3840         {
    3841           if (!iter(_v__q_1))
     3837      RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__asail__javarf_m_517_m_19, _v_lsplit___q_1);
     3838      for ( ; ; RF_iter(_v__q_1)++)
     3839      {
     3840        {
     3841          if (!RF_iter(_v__q_1))
    38423842          {
    38433843            goto _block1__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfp_asail_optim.cc

    r1894 r1996  
    21632163          goto _block6__branch2;
    21642164        }
    2165         lsplit (_ve_res, 0, _ve_1, _v_lsplit__res);
    2166         for ( ; ; iter(_ve_res)++)
    2167         {
    2168           {
    2169             if (!iter(_ve_res))
     2165        RF_lsplit (_ve_res, 0, _ve_1, _v_lsplit__res);
     2166        for ( ; ; RF_iter(_ve_res)++)
     2167        {
     2168          {
     2169            if (!RF_iter(_ve_res))
    21702170            {
    21712171              goto _block6__branch2;
    … …  
    24852485            goto _block6__branch1;
    24862486          }
    2487           lsplit (_ve_res, 0, _ve_1, _v_lsplit__res);
    2488           for ( ; ; iter(_ve_res)++)
    2489           {
    2490             {
    2491               if (!iter(_ve_res))
     2487          RF_lsplit (_ve_res, 0, _ve_1, _v_lsplit__res);
     2488          for ( ; ; RF_iter(_ve_res)++)
     2489          {
     2490            {
     2491              if (!RF_iter(_ve_res))
    24922492              {
    24932493                goto _block6__branch1;
    … …  
    28772877        }
    28782878        Expr _ve_rest (_ve_expr_m_int, 1, _v_len__rest3);
    2879         lsplit (_v_deref__expr_m_int, 0, _ve_1, _v_lsplit__deref__expr_m_int);
    2880         for ( ; ; iter(_v_deref__expr_m_int)++)
    2881         {
    2882           {
    2883             if (!iter(_v_deref__expr_m_int))
     2879        RF_lsplit (_v_deref__expr_m_int, 0, _ve_1, _v_lsplit__deref__expr_m_int);
     2880        for ( ; ; RF_iter(_v_deref__expr_m_int)++)
     2881        {
     2882          {
     2883            if (!RF_iter(_v_deref__expr_m_int))
    28842884            {
    28852885              goto _block2__branch3;
    … …  
    31963196        goto _block1__branch2;
    31973197      }
    3198       lsplit (_v_arg1, 0, _ve_expr1, _v_lsplit__arg1);
    3199       for ( ; ; iter(_v_arg1)++)
    3200       {
    3201         {
    3202           if (!iter(_v_arg1))
     3198      RF_lsplit (_v_arg1, 0, _ve_expr1, _v_lsplit__arg1);
     3199      for ( ; ; RF_iter(_v_arg1)++)
     3200      {
     3201        {
     3202          if (!RF_iter(_v_arg1))
    32033203          {
    32043204            goto _block1__branch2;
    … …  
    32503250      Expr _vt_int (_v_arg1, 0, 1);
    32513251      Expr _v_subexpr__arg1 (_v_arg1, 1, (_v_arg1.get_len () - 1));
    3252       lsplit (_v_subexpr__arg1, 0, _ve_expr1, _v_lsplit__arg12);
    3253       for ( ; ; iter(_v_subexpr__arg1)++)
    3254       {
    3255         {
    3256           if (!iter(_v_subexpr__arg1))
     3252      RF_lsplit (_v_subexpr__arg1, 0, _ve_expr1, _v_lsplit__arg12);
     3253      for ( ; ; RF_iter(_v_subexpr__arg1)++)
     3254      {
     3255        {
     3256          if (!RF_iter(_v_subexpr__arg1))
    32573257          {
    32583258            goto _block1__branch4;
    … …  
    33983398        goto _block1__branch2;
    33993399      }
    3400       lsplit (_ve_cond, 0, _ve_cond1, _v_lsplit__cond);
    3401       for ( ; ; iter(_ve_cond)++)
    3402       {
    3403         {
    3404           if (!iter(_ve_cond))
     3400      RF_lsplit (_ve_cond, 0, _ve_cond1, _v_lsplit__cond);
     3401      for ( ; ; RF_iter(_ve_cond)++)
     3402      {
     3403        {
     3404          if (!RF_iter(_ve_cond))
    34053405          {
    34063406            goto _block1__branch2;
    … …  
    34323432        goto _block1__branch3;
    34333433      }
    3434       lsplit (_ve_cond, 0, _ve_cond1, _v_lsplit__cond2);
    3435       for ( ; ; iter(_ve_cond)++)
    3436       {
    3437         {
    3438           if (!iter(_ve_cond))
     3434      RF_lsplit (_ve_cond, 0, _ve_cond1, _v_lsplit__cond2);
     3435      for ( ; ; RF_iter(_ve_cond)++)
     3436      {
     3437        {
     3438          if (!RF_iter(_ve_cond))
    34393439          {
    34403440            goto _block1__branch3;
    … …  
    40654065              goto _block3__branch1;
    40664066            }
    4067             lsplit (_ve_res, 0, _ve_log1, _v_lsplit__res);
    4068             for ( ; ; iter(_ve_res)++)
    4069             {
    4070               {
    4071                 if (!iter(_ve_res))
     4067            RF_lsplit (_ve_res, 0, _ve_log1, _v_lsplit__res);
     4068            for ( ; ; RF_iter(_ve_res)++)
     4069            {
     4070              {
     4071                if (!RF_iter(_ve_res))
    40724072                {
    40734073                  goto _block3__branch1;
    … …  
    41244124            goto _block5__branch1;
    41254125          }
    4126           lsplit (_ve_res, 0, _ve_log1, _v_lsplit__res2);
    4127           for ( ; ; iter(_ve_res)++)
    4128           {
    4129             {
    4130               if (!iter(_ve_res))
     4126          RF_lsplit (_ve_res, 0, _ve_log1, _v_lsplit__res2);
     4127          for ( ; ; RF_iter(_ve_res)++)
     4128          {
     4129            {
     4130              if (!RF_iter(_ve_res))
    41314131              {
    41324132                goto _block5__branch1;
    … …  
    41704170              goto _block6__branch2;
    41714171            }
    4172             lsplit (_ve_log, 0, _ve_log1, _v_lsplit__log);
    4173             for ( ; ; iter(_ve_log)++)
    4174             {
    4175               {
    4176                 if (!iter(_ve_log))
     4172            RF_lsplit (_ve_log, 0, _ve_log1, _v_lsplit__log);
     4173            for ( ; ; RF_iter(_ve_log)++)
     4174            {
     4175              {
     4176                if (!RF_iter(_ve_log))
    41774177                {
    41784178                  goto _block6__branch2;

  • to-imperative/trunk/bootstrap/compiler/rfp_check.cc

    r1894 r1996  
    187187      goto _block1__branch1;
    188188    }
    189     lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfp__checkrf_m_41_m_14, _v_lsplit__Items);
    190     for ( ; ; iter(_ve_Items)++)
    191     {
    192       {
    193         if (!iter(_ve_Items))
     189    RF_lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfp__checkrf_m_41_m_14, _v_lsplit__Items);
     190    for ( ; ; RF_iter(_ve_Items)++)
     191    {
     192      {
     193        if (!RF_iter(_ve_Items))
    194194        {
    195195          goto _block1__branch1;
    … …  
    240240            Expr _vt_name (_v_deref__item, 3, 1);
    241241            Expr _ve__e__e_tmp_m_rfp__checkrf_m_45_m_33 (_v_deref__item, 4, _v_len___e__e_tmp_m_rfp__checkrf_m_45_m_33);
    242             lsplit (_vv_targets, 0, _ve__e__e_tmp_m_rfp__checkrf_m_44_m_22, _v_lsplit__targets);
    243             for ( ; ; iter(_vv_targets)++)
    244             {
    245               {
    246                 if (!iter(_vv_targets))
     242            RF_lsplit (_vv_targets, 0, _ve__e__e_tmp_m_rfp__checkrf_m_44_m_22, _v_lsplit__targets);
     243            for ( ; ; RF_iter(_vv_targets)++)
     244            {
     245              {
     246                if (!RF_iter(_vv_targets))
    247247                {
    248248                  goto _continue1;
    … …  
    396396          goto _block1__branch1;
    397397        }
    398         rsplit (_v_Sentence__1, 0, _v_rsplit__Sentence__1, _ve_queue);
    399         for ( ; ; iter(_v_Sentence__1)--)
    400         {
    401           {
    402             if (!iter(_v_Sentence__1))
     398        RF_rsplit (_v_Sentence__1, 0, _v_rsplit__Sentence__1, _ve_queue);
     399        for ( ; ; RF_iter(_v_Sentence__1)--)
     400        {
     401          {
     402            if (!RF_iter(_v_Sentence__1))
    403403            {
    404404              goto _block1__branch1;
    … …  
    609609                goto _block6__branch1;
    610610              }
    611               lsplit (_ve_Branches, 0, _ve__e__e_tmp_m_rfp__checkrf_m_94_m_27, _v_lsplit__Branches);
    612               for ( ; ; iter(_ve_Branches)++)
     611              RF_lsplit (_ve_Branches, 0, _ve__e__e_tmp_m_rfp__checkrf_m_94_m_27, _v_lsplit__Branches);
     612              for ( ; ; RF_iter(_ve_Branches)++)
    613613              {
    614614                {
    615                   if (!iter(_ve_Branches))
     615                  if (!RF_iter(_ve_Branches))
    616616                  {
    617617                    goto _block6__branch1;
    … …  
    12971297            goto _block3__branch1;
    12981298          }
    1299           lsplit (_v_Vars1, 0, _ve__e__e_tmp_m_rfp__checkrf_m_169_m_28, _v_lsplit__Vars1);
    1300           for ( ; ; iter(_v_Vars1)++)
    1301           {
    1302             {
    1303               if (!iter(_v_Vars1))
     1299          RF_lsplit (_v_Vars1, 0, _ve__e__e_tmp_m_rfp__checkrf_m_169_m_28, _v_lsplit__Vars1);
     1300          for ( ; ; RF_iter(_v_Vars1)++)
     1301          {
     1302            {
     1303              if (!RF_iter(_v_Vars1))
    13041304              {
    13051305                goto _block3__branch1;
    … …  
    13381338                    goto _block4__branch1;
    13391339                  }
    1340                   lsplit (_v_vars__1, 0, _ve__e__e_tmp_m_rfp__checkrf_m_171_m_27, _v_lsplit__vars__1);
    1341                   for ( ; ; iter(_v_vars__1)++)
     1340                  RF_lsplit (_v_vars__1, 0, _ve__e__e_tmp_m_rfp__checkrf_m_171_m_27, _v_lsplit__vars__1);
     1341                  for ( ; ; RF_iter(_v_vars__1)++)
    13421342                  {
    13431343                    {
    1344                       if (!iter(_v_vars__1))
     1344                      if (!RF_iter(_v_vars__1))
    13451345                      {
    13461346                        goto _block4__branch1;
    … …  
    14411441              goto _block6__branch1;
    14421442            }
    1443             lsplit (_ve_He_m_vars, 0, _ve__e__e_tmp_m_rfp__checkrf_m_186_m_29, _v_lsplit__He_m_vars);
    1444             for ( ; ; iter(_ve_He_m_vars)++)
    1445             {
    1446               {
    1447                 if (!iter(_ve_He_m_vars))
     1443            RF_lsplit (_ve_He_m_vars, 0, _ve__e__e_tmp_m_rfp__checkrf_m_186_m_29, _v_lsplit__He_m_vars);
     1444            for ( ; ; RF_iter(_ve_He_m_vars)++)
     1445            {
     1446              {
     1447                if (!RF_iter(_ve_He_m_vars))
    14481448                {
    14491449                  goto _block6__branch1;
    … …  
    14731473                Expr _ve_3 (_v_deref__lsplit__He_m_vars, 2, _v_len__3);
    14741474                Expr _v_subexpr__lsplit__He_m_vars (_v_lsplit__He_m_vars, 1, (_v_lsplit__He_m_vars.get_len () - 1));
    1475                 lsplit (_v_subexpr__lsplit__He_m_vars, 0, _ve__e__e_tmp_m_rfp__checkrf_m_186_m_44, _v_lsplit__lsplit__He_m_vars);
    1476                 for ( ; ; iter(_v_subexpr__lsplit__He_m_vars)++)
     1475                RF_lsplit (_v_subexpr__lsplit__He_m_vars, 0, _ve__e__e_tmp_m_rfp__checkrf_m_186_m_44, _v_lsplit__lsplit__He_m_vars);
     1476                for ( ; ; RF_iter(_v_subexpr__lsplit__He_m_vars)++)
    14771477                {
    14781478                  {
    1479                     if (!iter(_v_subexpr__lsplit__He_m_vars))
     1479                    if (!RF_iter(_v_subexpr__lsplit__He_m_vars))
    14801480                    {
    14811481                      goto _continue3;
    … …  
    16371637            goto _block9__branch1;
    16381638          }
    1639           lsplit (_ve_Branches, 0, _ve__e__e_tmp_m_rfp__checkrf_m_199_m_27, _v_lsplit__Branches);
    1640           for ( ; ; iter(_ve_Branches)++)
    1641           {
    1642             {
    1643               if (!iter(_ve_Branches))
     1639          RF_lsplit (_ve_Branches, 0, _ve__e__e_tmp_m_rfp__checkrf_m_199_m_27, _v_lsplit__Branches);
     1640          for ( ; ; RF_iter(_ve_Branches)++)
     1641          {
     1642            {
     1643              if (!RF_iter(_ve_Branches))
    16441644              {
    16451645                goto _block9__branch1;
    … …  
    18171817          goto _block2__branch1;
    18181818        }
    1819         lsplit (_v_vars__1, 0, _ve__e__e_tmp_m_rfp__checkrf_m_231_m_10, _v_lsplit__vars__1);
    1820         for ( ; ; iter(_v_vars__1)++)
    1821         {
    1822           {
    1823             if (!iter(_v_vars__1))
     1819        RF_lsplit (_v_vars__1, 0, _ve__e__e_tmp_m_rfp__checkrf_m_231_m_10, _v_lsplit__vars__1);
     1820        for ( ; ; RF_iter(_v_vars__1)++)
     1821        {
     1822          {
     1823            if (!RF_iter(_v_vars__1))
    18241824            {
    18251825              goto _block2__branch1;
    … …  
    18651865          goto _block2__branch2;
    18661866        }
    1867         lsplit (_v_vars__1, 0, _ve_1, _v_lsplit__vars__12);
    1868         for ( ; ; iter(_v_vars__1)++)
    1869         {
    1870           {
    1871             if (!iter(_v_vars__1))
     1867        RF_lsplit (_v_vars__1, 0, _ve_1, _v_lsplit__vars__12);
     1868        for ( ; ; RF_iter(_v_vars__1)++)
     1869        {
     1870          {
     1871            if (!RF_iter(_v_vars__1))
    18721872            {
    18731873              goto _block2__branch2;
    … …  
    26002600      goto _block1__branch1;
    26012601    }
    2602     lsplit (_ve_pragmas, 0, _ve__e__e_tmp_m_rfp__checkrf_m_334_m_6, _v_lsplit__pragmas);
    2603     for ( ; ; iter(_ve_pragmas)++)
    2604     {
    2605       {
    2606         if (!iter(_ve_pragmas))
     2602    RF_lsplit (_ve_pragmas, 0, _ve__e__e_tmp_m_rfp__checkrf_m_334_m_6, _v_lsplit__pragmas);
     2603    for ( ; ; RF_iter(_ve_pragmas)++)
     2604    {
     2605      {
     2606        if (!RF_iter(_ve_pragmas))
    26072607        {
    26082608          goto _block1__branch1;
    … …  
    26452645      goto _block1__branch2;
    26462646    }
    2647     lsplit (_ve_pragmas, 0, _ve__e__e_tmp_m_rfp__checkrf_m_335_m_6, _v_lsplit__pragmas2);
    2648     for ( ; ; iter(_ve_pragmas)++)
    2649     {
    2650       {
    2651         if (!iter(_ve_pragmas))
     2647    RF_lsplit (_ve_pragmas, 0, _ve__e__e_tmp_m_rfp__checkrf_m_335_m_6, _v_lsplit__pragmas2);
     2648    for ( ; ; RF_iter(_ve_pragmas)++)
     2649    {
     2650      {
     2651        if (!RF_iter(_ve_pragmas))
    26522652        {
    26532653          goto _block1__branch2;

  • to-imperative/trunk/bootstrap/compiler/rfp_clashes.cc

    r1894 r1996  
    325325        goto _block1__branch1;
    326326      }
    327       lsplit (_v__q_1, 0, _ve_1, _v_lsplit___q_1);
    328       for ( ; ; iter(_v__q_1)++)
    329       {
    330         {
    331           if (!iter(_v__q_1))
     327      RF_lsplit (_v__q_1, 0, _ve_1, _v_lsplit___q_1);
     328      for ( ; ; RF_iter(_v__q_1)++)
     329      {
     330        {
     331          if (!RF_iter(_v__q_1))
    332332          {
    333333            goto _block1__branch1;
    … …  
    565565            goto _block2__branch2;
    566566          }
    567           lsplit (_ve_Pe, 0, _ve_1, _v_lsplit__Pe);
    568           for ( ; ; iter(_ve_Pe)++)
     567          RF_lsplit (_ve_Pe, 0, _ve_1, _v_lsplit__Pe);
     568          for ( ; ; RF_iter(_ve_Pe)++)
    569569          {
    570570            {
    571               if (!iter(_ve_Pe))
     571              if (!RF_iter(_ve_Pe))
    572572              {
    573573                goto _block2__branch2;
    … …  
    609609                    goto _block4__branch1;
    610610                  }
    611                   rsplit (_ve_2, 0, _v_rsplit__2, _ve_3);
    612                   for ( ; ; iter(_ve_2)--)
     611                  RF_rsplit (_ve_2, 0, _v_rsplit__2, _ve_3);
     612                  for ( ; ; RF_iter(_ve_2)--)
    613613                  {
    614614                    {
    615                       if (!iter(_ve_2))
     615                      if (!RF_iter(_ve_2))
    616616                      {
    617617                        goto _block4__branch1;
    … …  
    11581158          RF_FUNC_ERROR (unexpected_fail);
    11591159        }
    1160         lsplit (_v__q_1, 0, _ve_1, _v_lsplit___q_1);
    1161         for ( ; ; iter(_v__q_1)++)
    1162         {
    1163           {
    1164             if (!iter(_v__q_1))
     1160        RF_lsplit (_v__q_1, 0, _ve_1, _v_lsplit___q_1);
     1161        for ( ; ; RF_iter(_v__q_1)++)
     1162        {
     1163          {
     1164            if (!RF_iter(_v__q_1))
    11651165            {
    11661166              RF_FUNC_ERROR (unexpected_fail);
    … …  
    13071307      RF_RETFAIL;
    13081308    }
    1309     lsplit (_v__q_3, 0, _ve_l, _v_lsplit___q_3);
    1310     for ( ; ; iter(_v__q_3)++)
    1311     {
    1312       {
    1313         if (!iter(_v__q_3))
     1309    RF_lsplit (_v__q_3, 0, _ve_l, _v_lsplit___q_3);
     1310    for ( ; ; RF_iter(_v__q_3)++)
     1311    {
     1312      {
     1313        if (!RF_iter(_v__q_3))
    13141314        {
    13151315          RF_RETFAIL;
    … …  
    13761376      RF_FUNC_ERROR (unexpected_fail);
    13771377    }
    1378     lsplit (_v__q_5, 0, _ve_1, _v_lsplit___q_5);
    1379     for ( ; ; iter(_v__q_5)++)
    1380     {
    1381       {
    1382         if (!iter(_v__q_5))
     1378    RF_lsplit (_v__q_5, 0, _ve_1, _v_lsplit___q_5);
     1379    for ( ; ; RF_iter(_v__q_5)++)
     1380    {
     1381      {
     1382        if (!RF_iter(_v__q_5))
    13831383        {
    13841384          RF_FUNC_ERROR (unexpected_fail);
    … …  
    16301630        goto _negation1;
    16311631      }
    1632       lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__clashesrf_m_335_m_15, _v_lsplit___q_1);
    1633       for ( ; ; iter(_v__q_1)++)
    1634       {
    1635         {
    1636           if (!iter(_v__q_1))
     1632      RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__clashesrf_m_335_m_15, _v_lsplit___q_1);
     1633      for ( ; ; RF_iter(_v__q_1)++)
     1634      {
     1635        {
     1636          if (!RF_iter(_v__q_1))
    16371637          {
    16381638            goto _negation1;
    … …  
    16861686    RF_RETFAIL;
    16871687  }
    1688   lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__clashesrf_m_341_m_19, _v_lsplit___q_1);
    1689   for ( ; ; iter(_v__q_1)++)
    1690   {
    1691     {
    1692       if (!iter(_v__q_1))
     1688  RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__clashesrf_m_341_m_19, _v_lsplit___q_1);
     1689  for ( ; ; RF_iter(_v__q_1)++)
     1690  {
     1691    {
     1692      if (!RF_iter(_v__q_1))
    16931693      {
    16941694        RF_RETFAIL;
    … …  
    17531753      Expr _ve_Pe (_v_deref__deref__lsplit___q_12, (0 + 1), _v_len__Pe);
    17541754      Expr _v_subexpr__deref__lsplit___q_1 (_v_deref__lsplit___q_1, (0 + 1 + 1 + 1), (_v_deref__lsplit___q_1.get_len () - (0 + 1 + 1 + 1 + 0)));
    1755       lsplit (_v_subexpr__deref__lsplit___q_1, 0, _ve_b1, _v_lsplit__deref__lsplit___q_1);
    1756       for ( ; ; iter(_v_subexpr__deref__lsplit___q_1)++)
    1757       {
    1758         {
    1759           if (!iter(_v_subexpr__deref__lsplit___q_1))
     1755      RF_lsplit (_v_subexpr__deref__lsplit___q_1, 0, _ve_b1, _v_lsplit__deref__lsplit___q_1);
     1756      for ( ; ; RF_iter(_v_subexpr__deref__lsplit___q_1)++)
     1757      {
     1758        {
     1759          if (!RF_iter(_v_subexpr__deref__lsplit___q_1))
    17601760          {
    17611761            goto _continue1;

  • to-imperative/trunk/bootstrap/compiler/rfp_compile.cc

    r1913 r1996  
    490490        goto _block1__branch1;
    491491      }
    492       lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfp__compilerf_m_130_m_14, _v_lsplit__Items);
    493       for ( ; ; iter(_ve_Items)++)
    494       {
    495         {
    496           if (!iter(_ve_Items))
     492      RF_lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfp__compilerf_m_130_m_14, _v_lsplit__Items);
     493      for ( ; ; RF_iter(_ve_Items)++)
     494      {
     495        {
     496          if (!RF_iter(_ve_Items))
    497497          {
    498498            goto _block1__branch1;
    … …  
    538538              Expr _vt_name (_v_deref__item, 3, 1);
    539539              Expr _ve__e__e_tmp_m_rfp__compilerf_m_134_m_33 (_v_deref__item, 4, _v_len___e__e_tmp_m_rfp__compilerf_m_134_m_33);
    540               lsplit (_ve_targets, 0, _ve__e__e_tmp_m_rfp__compilerf_m_133_m_22, _v_lsplit__targets);
    541               for ( ; ; iter(_ve_targets)++)
     540              RF_lsplit (_ve_targets, 0, _ve__e__e_tmp_m_rfp__compilerf_m_133_m_22, _v_lsplit__targets);
     541              for ( ; ; RF_iter(_ve_targets)++)
    542542              {
    543543                {
    544                   if (!iter(_ve_targets))
     544                  if (!RF_iter(_ve_targets))
    545545                  {
    546546                    goto _continue1;
    … …  
    612612                  }
    613613                  Expr _v_subexpr__deref__pragma (_v_deref__pragma, 1, (_v_deref__pragma.get_len () - 1));
    614                   lsplit (_v_subexpr__deref__pragma, 0, _ve__e__e_tmp_m_rfp__compilerf_m_139_m_31, _v_lsplit__deref__pragma);
    615                   for ( ; ; iter(_v_subexpr__deref__pragma)++)
     614                  RF_lsplit (_v_subexpr__deref__pragma, 0, _ve__e__e_tmp_m_rfp__compilerf_m_139_m_31, _v_lsplit__deref__pragma);
     615                  for ( ; ; RF_iter(_v_subexpr__deref__pragma)++)
    616616                  {
    617617                    {
    618                       if (!iter(_v_subexpr__deref__pragma))
     618                      if (!RF_iter(_v_subexpr__deref__pragma))
    619619                      {
    620620                        goto _block4__branch1;
    … …  
    759759              Expr _ve_in (_v_deref__deref__item5, 0, _v_len__in);
    760760              Expr _ve_out (_v_deref__deref__item52, 0, _v_len__out);
    761               lsplit (_c_9, 0, _ve__e__e_tmp_m_rfp__compilerf_m_150_m_75, _v_lsplit__9);
    762               for ( ; ; iter(_c_9)++)
     761              RF_lsplit (_c_9, 0, _ve__e__e_tmp_m_rfp__compilerf_m_150_m_75, _v_lsplit__9);
     762              for ( ; ; RF_iter(_c_9)++)
    763763              {
    764764                {
    765                   if (!iter(_c_9))
     765                  if (!RF_iter(_c_9))
    766766                  {
    767767                    goto _block3__branch4;
    … …  
    788788                        goto _block5__branch1;
    789789                      }
    790                       rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve__e__e_tmp_m_rfp__compilerf_m_152_m_48);
    791                       for ( ; ; iter(_v__q_1)--)
     790                      RF_rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve__e__e_tmp_m_rfp__compilerf_m_152_m_48);
     791                      for ( ; ; RF_iter(_v__q_1)--)
    792792                      {
    793793                        {
    794                           if (!iter(_v__q_1))
     794                          if (!RF_iter(_v__q_1))
    795795                          {
    796796                            goto _block5__branch1;
    … …  
    13881388              goto _block4__branch1;
    13891389            }
    1390             lsplit (_v_declared__1, 0, _ve_1, _v_lsplit__declared__1);
    1391             for ( ; ; iter(_v_declared__1)++)
    1392             {
    1393               {
    1394                 if (!iter(_v_declared__1))
     1390            RF_lsplit (_v_declared__1, 0, _ve_1, _v_lsplit__declared__1);
     1391            for ( ; ; RF_iter(_v_declared__1)++)
     1392            {
     1393              {
     1394                if (!RF_iter(_v_declared__1))
    13951395                {
    13961396                  goto _block4__branch1;
    … …  
    17771777              goto _block4__branch1;
    17781778            }
    1779             lsplit (_c_52, 0, _ve__e__e_tmp_m_rfp__compilerf_m_321_m_43, _v_lsplit__52);
    1780             for ( ; ; iter(_c_52)++)
    1781             {
    1782               {
    1783                 if (!iter(_c_52))
     1779            RF_lsplit (_c_52, 0, _ve__e__e_tmp_m_rfp__compilerf_m_321_m_43, _v_lsplit__52);
     1780            for ( ; ; RF_iter(_c_52)++)
     1781            {
     1782              {
     1783                if (!RF_iter(_c_52))
    17841784                {
    17851785                  goto _block4__branch1;
    … …  
    19331933      Expr _ve__e__e_tmp_m_rfp__compilerf_m_347_m_14 (_ve_Sentence, 1, _v_len___e__e_tmp_m_rfp__compilerf_m_347_m_14);
    19341934      Expr _vs_block (_v_deref__Sentence4, 0, 1);
    1935       lsplit (_c_56, 0, _ve__e__e_tmp_m_rfp__compilerf_m_347_m_32, _v_lsplit__56);
    1936       for ( ; ; iter(_c_56)++)
    1937       {
    1938         {
    1939           if (!iter(_c_56))
     1935      RF_lsplit (_c_56, 0, _ve__e__e_tmp_m_rfp__compilerf_m_347_m_32, _v_lsplit__56);
     1936      for ( ; ; RF_iter(_c_56)++)
     1937      {
     1938        {
     1939          if (!RF_iter(_c_56))
    19401940          {
    19411941            goto _block1__branch5;
    … …  
    24832483            goto _block13__branch1;
    24842484          }
    2485           rsplit (_vv_fails, 0, _v_rsplit__fails, _ve__e__e_tmp_m_rfp__compilerf_m_525_m_50);
    2486           for ( ; ; iter(_vv_fails)--)
    2487           {
    2488             {
    2489               if (!iter(_vv_fails))
     2485          RF_rsplit (_vv_fails, 0, _v_rsplit__fails, _ve__e__e_tmp_m_rfp__compilerf_m_525_m_50);
     2486          for ( ; ; RF_iter(_vv_fails)--)
     2487          {
     2488            {
     2489              if (!RF_iter(_vv_fails))
    24902490              {
    24912491                goto _block13__branch1;
    … …  
    25422542            goto _block14__branch1;
    25432543          }
    2544           rsplit (_vv_fails, 0, _v_rsplit__fails2, _ve__e__e_tmp_m_rfp__compilerf_m_535_m_51);
    2545           for ( ; ; iter(_vv_fails)--)
    2546           {
    2547             {
    2548               if (!iter(_vv_fails))
     2544          RF_rsplit (_vv_fails, 0, _v_rsplit__fails2, _ve__e__e_tmp_m_rfp__compilerf_m_535_m_51);
     2545          for ( ; ; RF_iter(_vv_fails)--)
     2546          {
     2547            {
     2548              if (!RF_iter(_vv_fails))
    25492549              {
    25502550                goto _block14__branch1;
    … …  
    36523652          goto _negation1;
    36533653        }
    3654         lsplit (_ve_assigned_m_vars, 0, _ve__e__e_tmp_m_rfp__compilerf_m_794_m_56, _v_lsplit__assigned_m_vars);
    3655         for ( ; ; iter(_ve_assigned_m_vars)++)
    3656         {
    3657           {
    3658             if (!iter(_ve_assigned_m_vars))
     3654        RF_lsplit (_ve_assigned_m_vars, 0, _ve__e__e_tmp_m_rfp__compilerf_m_794_m_56, _v_lsplit__assigned_m_vars);
     3655        for ( ; ; RF_iter(_ve_assigned_m_vars)++)
     3656        {
     3657          {
     3658            if (!RF_iter(_ve_assigned_m_vars))
    36593659            {
    36603660              goto _negation1;
    … …  
    38563856      goto _block1__branch1;
    38573857    }
    3858     lsplit (_ve_vars, 0, _ve_1, _v_lsplit__vars);
    3859     for ( ; ; iter(_ve_vars)++)
    3860     {
    3861       {
    3862         if (!iter(_ve_vars))
     3858    RF_lsplit (_ve_vars, 0, _ve_1, _v_lsplit__vars);
     3859    for ( ; ; RF_iter(_ve_vars)++)
     3860    {
     3861      {
     3862        if (!RF_iter(_ve_vars))
    38633863        {
    38643864          goto _block1__branch1;
    … …  
    38783878            goto _block2__branch1;
    38793879          }
    3880           lsplit (_ve_list, 0, _ve__e__e_tmp_m_rfp__compilerf_m_928_m_19, _v_lsplit__list);
    3881           for ( ; ; iter(_ve_list)++)
    3882           {
    3883             {
    3884               if (!iter(_ve_list))
     3880          RF_lsplit (_ve_list, 0, _ve__e__e_tmp_m_rfp__compilerf_m_928_m_19, _v_lsplit__list);
     3881          for ( ; ; RF_iter(_ve_list)++)
     3882          {
     3883            {
     3884              if (!RF_iter(_ve_list))
    38853885              {
    38863886                goto _block2__branch1;
    … …  
    39333933                  goto _continue2;
    39343934                }
    3935                 lsplit (_ve_vars_m_Re, 0, _ve__e__e_tmp_m_rfp__compilerf_m_931_m_26, _v_lsplit__vars_m_Re);
    3936                 for ( ; ; iter(_ve_vars_m_Re)++)
     3935                RF_lsplit (_ve_vars_m_Re, 0, _ve__e__e_tmp_m_rfp__compilerf_m_931_m_26, _v_lsplit__vars_m_Re);
     3936                for ( ; ; RF_iter(_ve_vars_m_Re)++)
    39373937                {
    39383938                  {
    3939                     if (!iter(_ve_vars_m_Re))
     3939                    if (!RF_iter(_ve_vars_m_Re))
    39403940                    {
    39413941                      goto _continue2;
    … …  
    39993999        goto _block1__branch1;
    40004000      }
    4001       lsplit (_v_arg1, 0, _ve_1, _v_lsplit__arg1);
    4002       for ( ; ; iter(_v_arg1)++)
    4003       {
    4004         {
    4005           if (!iter(_v_arg1))
     4001      RF_lsplit (_v_arg1, 0, _ve_1, _v_lsplit__arg1);
     4002      for ( ; ; RF_iter(_v_arg1)++)
     4003      {
     4004        {
     4005          if (!RF_iter(_v_arg1))
    40064006          {
    40074007            goto _block1__branch1;
    … …  
    40514051            }
    40524052            Expr _v_compose1 ((_ve_1 + _ve_2));
    4053             lsplit (_v_compose1, 0, _ve__e__e_tmp_m_rfp__compilerf_m_966_m_16, _v_lsplit__compose1);
    4054             for ( ; ; iter(_v_compose1)++)
    4055             {
    4056               {
    4057                 if (!iter(_v_compose1))
     4053            RF_lsplit (_v_compose1, 0, _ve__e__e_tmp_m_rfp__compilerf_m_966_m_16, _v_lsplit__compose1);
     4054            for ( ; ; RF_iter(_v_compose1)++)
     4055            {
     4056              {
     4057                if (!RF_iter(_v_compose1))
    40584058                {
    40594059                  goto _block2__branch1;
    … …  
    41394139        goto _block1__branch1;
    41404140      }
    4141       lsplit (_v_arg1, 0, _ve_1, _v_lsplit__arg1);
    4142       for ( ; ; iter(_v_arg1)++)
    4143       {
    4144         {
    4145           if (!iter(_v_arg1))
     4141      RF_lsplit (_v_arg1, 0, _ve_1, _v_lsplit__arg1);
     4142      for ( ; ; RF_iter(_v_arg1)++)
     4143      {
     4144        {
     4145          if (!RF_iter(_v_arg1))
    41464146          {
    41474147            goto _block1__branch1;
    … …  
    60266026                goto _block9__branch1;
    60276027              }
    6028               rsplit (_ve_assigns, 0, _v_rsplit__assigns, _ve_2);
    6029               for ( ; ; iter(_ve_assigns)--)
     6028              RF_rsplit (_ve_assigns, 0, _v_rsplit__assigns, _ve_2);
     6029              for ( ; ; RF_iter(_ve_assigns)--)
    60306030              {
    60316031                {
    6032                   if (!iter(_ve_assigns))
     6032                  if (!RF_iter(_ve_assigns))
    60336033                  {
    60346034                    goto _block9__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfp_const.cc

    r1894 r1996  
    116116          goto _block2__branch1;
    117117        }
    118         lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__constrf_m_29_m_20, _v_lsplit___q_1);
    119         for ( ; ; iter(_v__q_1)++)
    120         {
    121           {
    122             if (!iter(_v__q_1))
     118        RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__constrf_m_29_m_20, _v_lsplit___q_1);
     119        for ( ; ; RF_iter(_v__q_1)++)
     120        {
     121          {
     122            if (!RF_iter(_v__q_1))
    123123            {
    124124              goto _block2__branch1;
    … …  
    189189    RF_FUNC_ERROR (unexpected_fail);
    190190  }
    191   lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__constrf_m_39_m_44, _v_lsplit___q_1);
    192   for ( ; ; iter(_v__q_1)++)
    193   {
    194     {
    195       if (!iter(_v__q_1))
     191  RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfp__constrf_m_39_m_44, _v_lsplit___q_1);
     192  for ( ; ; RF_iter(_v__q_1)++)
     193  {
     194    {
     195      if (!RF_iter(_v__q_1))
    196196      {
    197197        RF_FUNC_ERROR (unexpected_fail);
    … …  
    248248      RF_RETFAIL;
    249249    }
    250     lsplit (_ve_2, 0, _ve_3, _v_lsplit__2);
    251     for ( ; ; iter(_ve_2)++)
    252     {
    253       {
    254         if (!iter(_ve_2))
     250    RF_lsplit (_ve_2, 0, _ve_3, _v_lsplit__2);
     251    for ( ; ; RF_iter(_ve_2)++)
     252    {
     253      {
     254        if (!RF_iter(_ve_2))
    255255        {
    256256          RF_RETFAIL;
    … …  
    362362        goto _block1__branch1;
    363363      }
    364       lsplit (_ve_xpr, 0, _ve_1, _v_lsplit__xpr);
    365       for ( ; ; iter(_ve_xpr)++)
    366       {
    367         {
    368           if (!iter(_ve_xpr))
     364      RF_lsplit (_ve_xpr, 0, _ve_1, _v_lsplit__xpr);
     365      for ( ; ; RF_iter(_ve_xpr)++)
     366      {
     367        {
     368          if (!RF_iter(_ve_xpr))
    369369          {
    370370            goto _block1__branch1;
    … …  
    569569          }
    570570          Expr _ve_tbl_m_params (_v_Lookup2, 0, _v_len__tbl_m_params);
    571           lsplit (_ve_current, 0, _ve_1, _v_lsplit__current);
    572           for ( ; ; iter(_ve_current)++)
     571          RF_lsplit (_ve_current, 0, _ve_1, _v_lsplit__current);
     572          for ( ; ; RF_iter(_ve_current)++)
    573573          {
    574574            {
    575               if (!iter(_ve_current))
     575              if (!RF_iter(_ve_current))
    576576              {
    577577                goto _block6__branch1;
    … …  
    625625            goto _block6__branch2;
    626626          }
    627           lsplit (_ve_key, 0, _ve_1, _v_lsplit__key);
    628           for ( ; ; iter(_ve_key)++)
     627          RF_lsplit (_ve_key, 0, _ve_1, _v_lsplit__key);
     628          for ( ; ; RF_iter(_ve_key)++)
    629629          {
    630630            {
    631               if (!iter(_ve_key))
     631              if (!RF_iter(_ve_key))
    632632              {
    633633                goto _block6__branch2;
    … …  
    881881                goto _block4__branch1;
    882882              }
    883               lsplit (_v_arg1__1, 0, _ve_1, _v_lsplit__arg1__1);
    884               for ( ; ; iter(_v_arg1__1)++)
     883              RF_lsplit (_v_arg1__1, 0, _ve_1, _v_lsplit__arg1__1);
     884              for ( ; ; RF_iter(_v_arg1__1)++)
    885885              {
    886886                {
    887                   if (!iter(_v_arg1__1))
     887                  if (!RF_iter(_v_arg1__1))
    888888                  {
    889889                    goto _block4__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfp_debug.cc

    r1894 r1996  
    19011901        goto _block1__branch1;
    19021902      }
    1903       lsplit (_ve_list, 0, _ve_1, _v_lsplit__list);
    1904       for ( ; ; iter(_ve_list)++)
    1905       {
    1906         {
    1907           if (!iter(_ve_list))
     1903      RF_lsplit (_ve_list, 0, _ve_1, _v_lsplit__list);
     1904      for ( ; ; RF_iter(_ve_list)++)
     1905      {
     1906        {
     1907          if (!RF_iter(_ve_list))
    19081908          {
    19091909            goto _block1__branch1;
    … …  
    19261926          }
    19271927          Expr _ve_4 (_v_lsplit__list, 1, _v_len__4);
    1928           lsplit (_v_deref__lsplit__list, 0, _ve_2, _v_lsplit__deref__lsplit__list);
    1929           for ( ; ; iter(_v_deref__lsplit__list)++)
     1928          RF_lsplit (_v_deref__lsplit__list, 0, _ve_2, _v_lsplit__deref__lsplit__list);
     1929          for ( ; ; RF_iter(_v_deref__lsplit__list)++)
    19301930          {
    19311931            {
    1932               if (!iter(_v_deref__lsplit__list))
     1932              if (!RF_iter(_v_deref__lsplit__list))
    19331933              {
    19341934                goto _continue1;

  • to-imperative/trunk/bootstrap/compiler/rfp_format.cc

    r1894 r1996  
    14941494          goto _block10__branch2;
    14951495        }
    1496         lsplit (_ve_Fe1, 0, _ve__e__e_tmp_m_rfp__formatrf_m_158_m_14, _v_lsplit__Fe1);
    1497         for ( ; ; iter(_ve_Fe1)++)
    1498         {
    1499           {
    1500             if (!iter(_ve_Fe1))
     1496        RF_lsplit (_ve_Fe1, 0, _ve__e__e_tmp_m_rfp__formatrf_m_158_m_14, _v_lsplit__Fe1);
     1497        for ( ; ; RF_iter(_ve_Fe1)++)
     1498        {
     1499          {
     1500            if (!RF_iter(_ve_Fe1))
    15011501            {
    15021502              goto _block10__branch2;
    … …  
    15481548              goto _block10__branch2;
    15491549            }
    1550             lsplit (_ve_Fe2, 0, _ve__e__e_tmp_m_rfp__formatrf_m_162_m_16, _v_lsplit__Fe2);
    1551             for ( ; ; iter(_ve_Fe2)++)
    1552             {
    1553               {
    1554                 if (!iter(_ve_Fe2))
     1550            RF_lsplit (_ve_Fe2, 0, _ve__e__e_tmp_m_rfp__formatrf_m_162_m_16, _v_lsplit__Fe2);
     1551            for ( ; ; RF_iter(_ve_Fe2)++)
     1552            {
     1553              {
     1554                if (!RF_iter(_ve_Fe2))
    15551555                {
    15561556                  goto _block10__branch2;
    … …  
    17831783        RF_RETFAIL;
    17841784      }
    1785       lsplit (_ve_Format2, 0, _ve__e__e_tmp_m_rfp__formatrf_m_199_m_20, _v_lsplit__Format2);
    1786       for ( ; ; iter(_ve_Format2)++)
    1787       {
    1788         {
    1789           if (!iter(_ve_Format2))
     1785      RF_lsplit (_ve_Format2, 0, _ve__e__e_tmp_m_rfp__formatrf_m_199_m_20, _v_lsplit__Format2);
     1786      for ( ; ; RF_iter(_ve_Format2)++)
     1787      {
     1788        {
     1789          if (!RF_iter(_ve_Format2))
    17901790          {
    17911791            RF_RETFAIL;
    … …  
    18661866        RF_RETFAIL;
    18671867      }
    1868       lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format22);
    1869       for ( ; ; iter(_ve_Format2)++)
    1870       {
    1871         {
    1872           if (!iter(_ve_Format2))
     1868      RF_lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format22);
     1869      for ( ; ; RF_iter(_ve_Format2)++)
     1870      {
     1871        {
     1872          if (!RF_iter(_ve_Format2))
    18731873          {
    18741874            RF_RETFAIL;
    … …  
    20342034        RF_RETFAIL;
    20352035      }
    2036       lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format23);
    2037       for ( ; ; iter(_ve_Format2)++)
    2038       {
    2039         {
    2040           if (!iter(_ve_Format2))
     2036      RF_lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format23);
     2037      for ( ; ; RF_iter(_ve_Format2)++)
     2038      {
     2039        {
     2040          if (!RF_iter(_ve_Format2))
    20412041          {
    20422042            RF_RETFAIL;
    … …  
    22142214        RF_RETFAIL;
    22152215      }
    2216       lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format24);
    2217       for ( ; ; iter(_ve_Format2)++)
    2218       {
    2219         {
    2220           if (!iter(_ve_Format2))
     2216      RF_lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format24);
     2217      for ( ; ; RF_iter(_ve_Format2)++)
     2218      {
     2219        {
     2220          if (!RF_iter(_ve_Format2))
    22212221          {
    22222222            RF_RETFAIL;
    … …  
    23732373        RF_RETFAIL;
    23742374      }
    2375       lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format25);
    2376       for ( ; ; iter(_ve_Format2)++)
    2377       {
    2378         {
    2379           if (!iter(_ve_Format2))
     2375      RF_lsplit (_ve_Format2, 0, _ve_0, _v_lsplit__Format25);
     2376      for ( ; ; RF_iter(_ve_Format2)++)
     2377      {
     2378        {
     2379          if (!RF_iter(_ve_Format2))
    23802380          {
    23812381            RF_RETFAIL;
    … …  
    25352535        goto _block1__branch10;
    25362536      }
    2537       lsplit (_ve_Format1, 1, _vv_first1, _vv_rest1);
    2538       for ( ; ; iter(_ve_Format1)++)
    2539       {
    2540         {
    2541           if (!iter(_ve_Format1))
     2537      RF_lsplit (_ve_Format1, 1, _vv_first1, _vv_rest1);
     2538      for ( ; ; RF_iter(_ve_Format1)++)
     2539      {
     2540        {
     2541          if (!RF_iter(_ve_Format1))
    25422542          {
    25432543            goto _block1__branch10;
    … …  
    25472547            goto _block1__branch10;
    25482548          }
    2549           lsplit (_ve_Format2, 0, _ve_first2, _ve_rest2);
    2550           for ( ; ; iter(_ve_Format2)++)
    2551           {
    2552             {
    2553               if (!iter(_ve_Format2))
     2549          RF_lsplit (_ve_Format2, 0, _ve_first2, _ve_rest2);
     2550          for ( ; ; RF_iter(_ve_Format2)++)
     2551          {
     2552            {
     2553              if (!RF_iter(_ve_Format2))
    25542554              {
    25552555                goto _continue6;
    … …  
    26282628            goto _block13__branch1;
    26292629          }
    2630           lsplit (_v_Format2__1, 0, _ve_1, _v_lsplit__Format2__1);
    2631           for ( ; ; iter(_v_Format2__1)++)
    2632           {
    2633             {
    2634               if (!iter(_v_Format2__1))
     2630          RF_lsplit (_v_Format2__1, 0, _ve_1, _v_lsplit__Format2__1);
     2631          for ( ; ; RF_iter(_v_Format2__1)++)
     2632          {
     2633            {
     2634              if (!RF_iter(_v_Format2__1))
    26352635              {
    26362636                goto _block13__branch1;
    … …  
    27162716        goto _block1__branch1;
    27172717      }
    2718       lsplit (_v_arg1, 0, _ve__e__e_tmp_m_rfp__formatrf_m_285_m_4, _v_lsplit__arg1);
    2719       for ( ; ; iter(_v_arg1)++)
    2720       {
    2721         {
    2722           if (!iter(_v_arg1))
     2718      RF_lsplit (_v_arg1, 0, _ve__e__e_tmp_m_rfp__formatrf_m_285_m_4, _v_lsplit__arg1);
     2719      for ( ; ; RF_iter(_v_arg1)++)
     2720      {
     2721        {
     2722          if (!RF_iter(_v_arg1))
    27232723          {
    27242724            goto _block1__branch1;
    … …  
    27992799    RF_RETFAIL;
    28002800  }
    2801   lsplit (_v_arg1, 0, _ve_0, _v_lsplit__arg1);
    2802   for ( ; ; iter(_v_arg1)++)
     2801  RF_lsplit (_v_arg1, 0, _ve_0, _v_lsplit__arg1);
     2802  for ( ; ; RF_iter(_v_arg1)++)
    28032803  {
    28042804    {
    2805       if (!iter(_v_arg1))
     2805      if (!RF_iter(_v_arg1))
    28062806      {
    28072807        RF_RETFAIL;

  • to-imperative/trunk/bootstrap/compiler/rfp_helper.cc

    r1894 r1996  
    127127      goto _block1__branch1;
    128128    }
    129     lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__helperrf_m_34_m_23, _v_lsplit__Domain1);
    130     for ( ; ; iter(_v_Domain1)++)
    131     {
    132       {
    133         if (!iter(_v_Domain1))
     129    RF_lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__helperrf_m_34_m_23, _v_lsplit__Domain1);
     130    for ( ; ; RF_iter(_v_Domain1)++)
     131    {
     132      {
     133        if (!RF_iter(_v_Domain1))
    134134        {
    135135          goto _block1__branch1;
    … …  
    188188      goto _block1__branch1;
    189189    }
    190     lsplit (_ve_keys, 0, _ve__e__e_tmp_m_rfp__helperrf_m_43_m_15, _v_lsplit__keys);
    191     for ( ; ; iter(_ve_keys)++)
    192     {
    193       {
    194         if (!iter(_ve_keys))
     190    RF_lsplit (_ve_keys, 0, _ve__e__e_tmp_m_rfp__helperrf_m_43_m_15, _v_lsplit__keys);
     191    for ( ; ; RF_iter(_ve_keys)++)
     192    {
     193      {
     194        if (!RF_iter(_ve_keys))
    195195        {
    196196          goto _block1__branch1;
    … …  
    226226        goto _block1__branch1;
    227227      }
    228       lsplit (_v_deref__arg1, 0, _ve_1, _v_lsplit__deref__arg1);
    229       for ( ; ; iter(_v_deref__arg1)++)
    230       {
    231         {
    232           if (!iter(_v_deref__arg1))
     228      RF_lsplit (_v_deref__arg1, 0, _ve_1, _v_lsplit__deref__arg1);
     229      for ( ; ; RF_iter(_v_deref__arg1)++)
     230      {
     231        {
     232          if (!RF_iter(_v_deref__arg1))
    233233          {
    234234            goto _block1__branch1;
    … …  
    297297        goto _block1__branch1;
    298298      }
    299       lsplit (_v_arg1, 0, _ve_L, _v_lsplit__arg1);
    300       for ( ; ; iter(_v_arg1)++)
    301       {
    302         {
    303           if (!iter(_v_arg1))
     299      RF_lsplit (_v_arg1, 0, _ve_L, _v_lsplit__arg1);
     300      for ( ; ; RF_iter(_v_arg1)++)
     301      {
     302        {
     303          if (!RF_iter(_v_arg1))
    304304          {
    305305            goto _block1__branch1;
    … …  
    379379        goto _block1__branch1;
    380380      }
    381       lsplit (_ve_xpr, 0, _ve_1, _v_lsplit__xpr);
    382       for ( ; ; iter(_ve_xpr)++)
    383       {
    384         {
    385           if (!iter(_ve_xpr))
     381      RF_lsplit (_ve_xpr, 0, _ve_1, _v_lsplit__xpr);
     382      for ( ; ; RF_iter(_ve_xpr)++)
     383      {
     384        {
     385          if (!RF_iter(_ve_xpr))
    386386          {
    387387            goto _block1__branch1;
    … …  
    404404                goto _block2__branch1;
    405405              }
    406               rsplit (_ve_patterns, 0, _v_rsplit__patterns, _ve_5);
    407               for ( ; ; iter(_ve_patterns)--)
     406              RF_rsplit (_ve_patterns, 0, _v_rsplit__patterns, _ve_5);
     407              for ( ; ; RF_iter(_ve_patterns)--)
    408408              {
    409409                {
    410                   if (!iter(_ve_patterns))
     410                  if (!RF_iter(_ve_patterns))
    411411                  {
    412412                    goto _block2__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfp_lex.cc

    r1913 r1996  
    12861286    RF_RETFAIL;
    12871287  }
    1288   lsplit (_c_54, 0, _ve__e__e_tmp_m_rfp__lexrf_m_250_m_14, _v_lsplit__54);
    1289   for ( ; ; iter(_c_54)++)
    1290   {
    1291     {
    1292       if (!iter(_c_54))
     1288  RF_lsplit (_c_54, 0, _ve__e__e_tmp_m_rfp__lexrf_m_250_m_14, _v_lsplit__54);
     1289  for ( ; ; RF_iter(_c_54)++)
     1290  {
     1291    {
     1292      if (!RF_iter(_c_54))
    12931293      {
    12941294        RF_RETFAIL;
    … …  
    21322132            goto _block3__branch1;
    21332133          }
    2134           lsplit (_ve_extra, 0, _ve__e__e_tmp_m_rfp__lexrf_m_384_m_20, _v_lsplit__extra);
    2135           for ( ; ; iter(_ve_extra)++)
    2136           {
    2137             {
    2138               if (!iter(_ve_extra))
     2134          RF_lsplit (_ve_extra, 0, _ve__e__e_tmp_m_rfp__lexrf_m_384_m_20, _v_lsplit__extra);
     2135          for ( ; ; RF_iter(_ve_extra)++)
     2136          {
     2137            {
     2138              if (!RF_iter(_ve_extra))
    21392139              {
    21402140                goto _block3__branch1;
    … …  
    24362436        goto _block1__branch1;
    24372437      }
    2438       lsplit (_ve_line, 0, _ve_1, _v_lsplit__line);
    2439       for ( ; ; iter(_ve_line)++)
    2440       {
    2441         {
    2442           if (!iter(_ve_line))
     2438      RF_lsplit (_ve_line, 0, _ve_1, _v_lsplit__line);
     2439      for ( ; ; RF_iter(_ve_line)++)
     2440      {
     2441        {
     2442          if (!RF_iter(_ve_line))
    24432443          {
    24442444            goto _block1__branch1;
    … …  
    26402640    RF_RETFAIL;
    26412641  }
    2642   lsplit (_ve_path, 0, _ve__e__e_tmp_m_rfp__lexrf_m_477_m_13, _v_lsplit__path);
    2643   for ( ; ; iter(_ve_path)++)
    2644   {
    2645     {
    2646       if (!iter(_ve_path))
     2642  RF_lsplit (_ve_path, 0, _ve__e__e_tmp_m_rfp__lexrf_m_477_m_13, _v_lsplit__path);
     2643  for ( ; ; RF_iter(_ve_path)++)
     2644  {
     2645    {
     2646      if (!RF_iter(_ve_path))
    26472647      {
    26482648        RF_RETFAIL;

  • to-imperative/trunk/bootstrap/compiler/rfp_parse.cc

    r1913 r1996  
    846846            goto _block1__branch1;
    847847          }
    848           lsplit (_ve_types, 0, _ve__e__e_tmp_m_rfp__parserf_m_151_m_13, _v_lsplit__types);
    849           for ( ; ; iter(_ve_types)++)
     848          RF_lsplit (_ve_types, 0, _ve__e__e_tmp_m_rfp__parserf_m_151_m_13, _v_lsplit__types);
     849          for ( ; ; RF_iter(_ve_types)++)
    850850          {
    851851            {
    852               if (!iter(_ve_types))
     852              if (!RF_iter(_ve_types))
    853853              {
    854854                goto _block1__branch1;
    … …  
    885885          goto _iter1;
    886886        }
    887         lsplit (_ve_types, 0, _ve__e__e_tmp_m_rfp__parserf_m_154_m_13, _v_lsplit__types2);
    888         for ( ; ; iter(_ve_types)++)
    889         {
    890           {
    891             if (!iter(_ve_types))
     887        RF_lsplit (_ve_types, 0, _ve__e__e_tmp_m_rfp__parserf_m_154_m_13, _v_lsplit__types2);
     888        for ( ; ; RF_iter(_ve_types)++)
     889        {
     890          {
     891            if (!RF_iter(_ve_types))
    892892            {
    893893              goto _iter1;
    … …  
    12241224        goto _block1__branch2;
    12251225      }
    1226       lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__parserf_m_228_m_24, _v_lsplit__Domain1);
    1227       for ( ; ; iter(_v_Domain1)++)
    1228       {
    1229         {
    1230           if (!iter(_v_Domain1))
     1226      RF_lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__parserf_m_228_m_24, _v_lsplit__Domain1);
     1227      for ( ; ; RF_iter(_v_Domain1)++)
     1228      {
     1229        {
     1230          if (!RF_iter(_v_Domain1))
    12311231          {
    12321232            goto _block1__branch2;
    … …  
    17421742        goto _block1__branch1;
    17431743      }
    1744       lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__parserf_m_331_m_8, _v_lsplit__Domain1);
    1745       for ( ; ; iter(_v_Domain1)++)
    1746       {
    1747         {
    1748           if (!iter(_v_Domain1))
     1744      RF_lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__parserf_m_331_m_8, _v_lsplit__Domain1);
     1745      for ( ; ; RF_iter(_v_Domain1)++)
     1746      {
     1747        {
     1748          if (!RF_iter(_v_Domain1))
    17491749          {
    17501750            goto _block1__branch1;
    … …  
    17891789      RF_RETFAIL;
    17901790    }
    1791     lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__parserf_m_332_m_8, _v_lsplit__Domain12);
    1792     for ( ; ; iter(_v_Domain1)++)
    1793     {
    1794       {
    1795         if (!iter(_v_Domain1))
     1791    RF_lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfp__parserf_m_332_m_8, _v_lsplit__Domain12);
     1792    for ( ; ; RF_iter(_v_Domain1)++)
     1793    {
     1794      {
     1795        if (!RF_iter(_v_Domain1))
    17961796        {
    17971797          RF_RETFAIL;
    … …  
    18581858            goto _block2__branch1;
    18591859          }
    1860           lsplit (_ve_names, 0, _ve__e__e_tmp_m_rfp__parserf_m_342_m_10, _v_lsplit__names);
    1861           for ( ; ; iter(_ve_names)++)
     1860          RF_lsplit (_ve_names, 0, _ve__e__e_tmp_m_rfp__parserf_m_342_m_10, _v_lsplit__names);
     1861          for ( ; ; RF_iter(_ve_names)++)
    18621862          {
    18631863            {
    1864               if (!iter(_ve_names))
     1864              if (!RF_iter(_ve_names))
    18651865              {
    18661866                goto _block2__branch1;
    … …  
    19011901          goto _block1__branch1;
    19021902        }
    1903         lsplit (_ve_names, 0, _ve__e__e_tmp_m_rfp__parserf_m_343_m_10, _v_lsplit__names2);
    1904         for ( ; ; iter(_ve_names)++)
    1905         {
    1906           {
    1907             if (!iter(_ve_names))
     1903        RF_lsplit (_ve_names, 0, _ve__e__e_tmp_m_rfp__parserf_m_343_m_10, _v_lsplit__names2);
     1904        for ( ; ; RF_iter(_ve_names)++)
     1905        {
     1906          {
     1907            if (!RF_iter(_ve_names))
    19081908            {
    19091909              goto _block1__branch1;
    … …  
    40344034  Expr _ve__e__e_tmp_m_rfp__parserf_m_725_m_47 (_v_deref__compose12, 1, _v_len___e__e_tmp_m_rfp__parserf_m_725_m_47);
    40354035  Expr _v_compose2 ((_ve_colon_m_pos () + _ve_pos ()));
    4036   lsplit (_v_compose2, 0, _ve__e__e_tmp_m_rfp__parserf_m_726_m_28, _v_lsplit__compose2);
    4037   for ( ; ; iter(_v_compose2)++)
    4038   {
    4039     {
    4040       if (!iter(_v_compose2))
     4036  RF_lsplit (_v_compose2, 0, _ve__e__e_tmp_m_rfp__parserf_m_726_m_28, _v_lsplit__compose2);
     4037  for ( ; ; RF_iter(_v_compose2)++)
     4038  {
     4039    {
     4040      if (!RF_iter(_v_compose2))
    40414041      {
    40424042        RF_FUNC_ERROR (unexpected_fail);
    … …  
    43354335        goto _block1__branch1;
    43364336      }
    4337       lsplit (_v_arg1, 0, _ve_item, _v_lsplit__arg1);
    4338       for ( ; ; iter(_v_arg1)++)
    4339       {
    4340         {
    4341           if (!iter(_v_arg1))
     4337      RF_lsplit (_v_arg1, 0, _ve_item, _v_lsplit__arg1);
     4338      for ( ; ; RF_iter(_v_arg1)++)
     4339      {
     4340        {
     4341          if (!RF_iter(_v_arg1))
    43424342          {
    43434343            goto _block1__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfp_src.cc

    r1894 r1996  
    259259        goto _block1__branch1;
    260260      }
    261       rsplit (_v_arg1, 0, _v_rsplit__arg1, _ve__e__e_tmp_m_rfp__srcrf_m_66_m_33);
    262       for ( ; ; iter(_v_arg1)--)
     261      RF_rsplit (_v_arg1, 0, _v_rsplit__arg1, _ve__e__e_tmp_m_rfp__srcrf_m_66_m_33);
     262      for ( ; ; RF_iter(_v_arg1)--)
    263263      {
    264264        {
    265           if (!iter(_v_arg1))
     265          if (!RF_iter(_v_arg1))
    266266          {
    267267            goto _block1__branch1;
    … …  
    300300        goto _block1__branch1;
    301301      }
    302       rsplit (_v_arg1, 0, _v_rsplit__arg1, _ve_file);
    303       for ( ; ; iter(_v_arg1)--)
     302      RF_rsplit (_v_arg1, 0, _v_rsplit__arg1, _ve_file);
     303      for ( ; ; RF_iter(_v_arg1)--)
    304304      {
    305305        {
    306           if (!iter(_v_arg1))
     306          if (!RF_iter(_v_arg1))
    307307          {
    308308            goto _block1__branch1;
    … …  
    343343        goto _block1__branch1;
    344344      }
    345       rsplit (_ve_file, 0, _v_rsplit__file, _ve__e__e_tmp_m_rfp__srcrf_m_78_m_31);
    346       for ( ; ; iter(_ve_file)--)
     345      RF_rsplit (_ve_file, 0, _v_rsplit__file, _ve__e__e_tmp_m_rfp__srcrf_m_78_m_31);
     346      for ( ; ; RF_iter(_ve_file)--)
    347347      {
    348348        {
    349           if (!iter(_ve_file))
     349          if (!RF_iter(_ve_file))
    350350          {
    351351            goto _block1__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfp_vars.cc

    r1894 r1996  
    271271        goto _block1__branch1;
    272272      }
    273       lsplit (_ve_info, 0, _ve__e__e_tmp_m_rfp__varsrf_m_55_m_15, _v_lsplit__info);
    274       for ( ; ; iter(_ve_info)++)
    275       {
    276         {
    277           if (!iter(_ve_info))
     273      RF_lsplit (_ve_info, 0, _ve__e__e_tmp_m_rfp__varsrf_m_55_m_15, _v_lsplit__info);
     274      for ( ; ; RF_iter(_ve_info)++)
     275      {
     276        {
     277          if (!RF_iter(_ve_info))
    278278          {
    279279            goto _block1__branch1;
    … …  
    311311                goto _block2__branch1;
    312312              }
    313               lsplit (_ve_info, 0, _ve_1, _v_lsplit__info2);
    314               for ( ; ; iter(_ve_info)++)
     313              RF_lsplit (_ve_info, 0, _ve_1, _v_lsplit__info2);
     314              for ( ; ; RF_iter(_ve_info)++)
    315315              {
    316316                {
    317                   if (!iter(_ve_info))
     317                  if (!RF_iter(_ve_info))
    318318                  {
    319319                    goto _block2__branch1;
    … …  
    378378                goto _block4__branch1;
    379379              }
    380               lsplit (_v_info__2, 0, _ve_1, _v_lsplit__info__2);
    381               for ( ; ; iter(_v_info__2)++)
     380              RF_lsplit (_v_info__2, 0, _ve_1, _v_lsplit__info__2);
     381              for ( ; ; RF_iter(_v_info__2)++)
    382382              {
    383383                {
    384                   if (!iter(_v_info__2))
     384                  if (!RF_iter(_v_info__2))
    385385                  {
    386386                    goto _block4__branch1;
    … …  
    456456        goto _block6__branch1;
    457457      }
    458       lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_78_m_15, _v_lsplit__info__1);
    459       for ( ; ; iter(_v_info__1)++)
    460       {
    461         {
    462           if (!iter(_v_info__1))
     458      RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_78_m_15, _v_lsplit__info__1);
     459      for ( ; ; RF_iter(_v_info__1)++)
     460      {
     461        {
     462          if (!RF_iter(_v_info__1))
    463463          {
    464464            goto _block6__branch1;
    … …  
    659659            goto _block10__branch1;
    660660          }
    661           lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_94_m_19, _v_lsplit__info__12);
    662           for ( ; ; iter(_v_info__1)++)
     661          RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_94_m_19, _v_lsplit__info__12);
     662          for ( ; ; RF_iter(_v_info__1)++)
    663663          {
    664664            {
    665               if (!iter(_v_info__1))
     665              if (!RF_iter(_v_info__1))
    666666              {
    667667                goto _block10__branch1;
    … …  
    714714        goto _block11__branch1;
    715715      }
    716       lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_104_m_15, _v_lsplit__info__13);
    717       for ( ; ; iter(_v_info__1)++)
    718       {
    719         {
    720           if (!iter(_v_info__1))
     716      RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_104_m_15, _v_lsplit__info__13);
     717      for ( ; ; RF_iter(_v_info__1)++)
     718      {
     719        {
     720          if (!RF_iter(_v_info__1))
    721721          {
    722722            goto _block11__branch1;
    … …  
    764764        goto _block11__branch2;
    765765      }
    766       lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_105_m_15, _v_lsplit__info__14);
    767       for ( ; ; iter(_v_info__1)++)
    768       {
    769         {
    770           if (!iter(_v_info__1))
     766      RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_105_m_15, _v_lsplit__info__14);
     767      for ( ; ; RF_iter(_v_info__1)++)
     768      {
     769        {
     770          if (!RF_iter(_v_info__1))
    771771          {
    772772            goto _block11__branch2;
    … …  
    798798          Expr _ve__e__e_tmp_m_rfp__varsrf_m_105_m_29 (_v_lsplit__info__14, 1, _v_len___e__e_tmp_m_rfp__varsrf_m_105_m_29);
    799799          Expr _vs_max (_v_deref__lsplit__info__14, 1, 1);
    800           lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_105_m_41, _v_lsplit__info__15);
    801           for ( ; ; iter(_v_info__1)++)
     800          RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_105_m_41, _v_lsplit__info__15);
     801          for ( ; ; RF_iter(_v_info__1)++)
    802802          {
    803803            {
    804               if (!iter(_v_info__1))
     804              if (!RF_iter(_v_info__1))
    805805              {
    806806                goto _continue7;
    … …  
    853853        goto _block12__branch1;
    854854      }
    855       lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_113_m_15, _v_lsplit__info__16);
    856       for ( ; ; iter(_v_info__1)++)
    857       {
    858         {
    859           if (!iter(_v_info__1))
     855      RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_113_m_15, _v_lsplit__info__16);
     856      for ( ; ; RF_iter(_v_info__1)++)
     857      {
     858        {
     859          if (!RF_iter(_v_info__1))
    860860          {
    861861            goto _block12__branch1;
    … …  
    899899        goto _block12__branch2;
    900900      }
    901       lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_114_m_15, _v_lsplit__info__17);
    902       for ( ; ; iter(_v_info__1)++)
    903       {
    904         {
    905           if (!iter(_v_info__1))
     901      RF_lsplit (_v_info__1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_114_m_15, _v_lsplit__info__17);
     902      for ( ; ; RF_iter(_v_info__1)++)
     903      {
     904        {
     905          if (!RF_iter(_v_info__1))
    906906          {
    907907            goto _block12__branch2;
    … …  
    944944        goto _block1__branch1;
    945945      }
    946       rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
    947       for ( ; ; iter(_v__q_1)--)
    948       {
    949         {
    950           if (!iter(_v__q_1))
     946      RF_rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
     947      for ( ; ; RF_iter(_v__q_1)--)
     948      {
     949        {
     950          if (!RF_iter(_v__q_1))
    951951          {
    952952            goto _block1__branch1;
    … …  
    10221022                  goto _block3__branch1;
    10231023                }
    1024                 lsplit (_v_info__2, 0, _ve_3, _v_lsplit__info__2);
    1025                 for ( ; ; iter(_v_info__2)++)
     1024                RF_lsplit (_v_info__2, 0, _ve_3, _v_lsplit__info__2);
     1025                for ( ; ; RF_iter(_v_info__2)++)
    10261026                {
    10271027                  {
    1028                     if (!iter(_v_info__2))
     1028                    if (!RF_iter(_v_info__2))
    10291029                    {
    10301030                      goto _block3__branch1;
    … …  
    11031103    RF_RETFAIL;
    11041104  }
    1105   rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
    1106   for ( ; ; iter(_v__q_1)--)
    1107   {
    1108     {
    1109       if (!iter(_v__q_1))
     1105  RF_rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
     1106  for ( ; ; RF_iter(_v__q_1)--)
     1107  {
     1108    {
     1109      if (!RF_iter(_v__q_1))
    11101110      {
    11111111        RF_RETFAIL;
    … …  
    11501150            goto _block1__branch1;
    11511151          }
    1152           lsplit (_ve_info, 0, _ve__e__e_tmp_m_rfp__varsrf_m_138_m_15, _v_lsplit__info);
    1153           for ( ; ; iter(_ve_info)++)
     1152          RF_lsplit (_ve_info, 0, _ve__e__e_tmp_m_rfp__varsrf_m_138_m_15, _v_lsplit__info);
     1153          for ( ; ; RF_iter(_ve_info)++)
    11541154          {
    11551155            {
    1156               if (!iter(_ve_info))
     1156              if (!RF_iter(_ve_info))
    11571157              {
    11581158                goto _block1__branch1;
    … …  
    12521252        goto _block1__branch1;
    12531253      }
    1254       rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
    1255       for ( ; ; iter(_v__q_1)--)
    1256       {
    1257         {
    1258           if (!iter(_v__q_1))
     1254      RF_rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
     1255      for ( ; ; RF_iter(_v__q_1)--)
     1256      {
     1257        {
     1258          if (!RF_iter(_v__q_1))
    12591259          {
    12601260            goto _block1__branch1;
    … …  
    13051305        goto _block2__branch1;
    13061306      }
    1307       lsplit (_v_auxblock1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_158_m_6, _v_lsplit__auxblock1);
    1308       for ( ; ; iter(_v_auxblock1)++)
    1309       {
    1310         {
    1311           if (!iter(_v_auxblock1))
     1307      RF_lsplit (_v_auxblock1, 0, _ve__e__e_tmp_m_rfp__varsrf_m_158_m_6, _v_lsplit__auxblock1);
     1308      for ( ; ; RF_iter(_v_auxblock1)++)
     1309      {
     1310        {
     1311          if (!RF_iter(_v_auxblock1))
    13121312          {
    13131313            goto _block2__branch1;
    … …  
    13751375    RF_FUNC_ERROR (unexpected_fail);
    13761376  }
    1377   rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
    1378   for ( ; ; iter(_v__q_1)--)
    1379   {
    1380     {
    1381       if (!iter(_v__q_1))
     1377  RF_rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve_2);
     1378  for ( ; ; RF_iter(_v__q_1)--)
     1379  {
     1380    {
     1381      if (!RF_iter(_v__q_1))
    13821382      {
    13831383        RF_FUNC_ERROR (unexpected_fail);
    … …  
    22552255        goto _block4__branch1;
    22562256      }
    2257       rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve__e__e_tmp_m_rfp__varsrf_m_321_m_32);
    2258       for ( ; ; iter(_v__q_1)--)
    2259       {
    2260         {
    2261           if (!iter(_v__q_1))
     2257      RF_rsplit (_v__q_1, 0, _v_rsplit___q_1, _ve__e__e_tmp_m_rfp__varsrf_m_321_m_32);
     2258      for ( ; ; RF_iter(_v__q_1)--)
     2259      {
     2260        {
     2261          if (!RF_iter(_v__q_1))
    22622262          {
    22632263            goto _block4__branch1;

  • to-imperative/trunk/bootstrap/compiler/rfpc.cc

    r1913 r1996  
    437437            goto _block3__branch1;
    438438          }
    439           lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfpcrf_m_100_m_29, _v_lsplit___q_1);
    440           for ( ; ; iter(_v__q_1)++)
    441           {
    442             {
    443               if (!iter(_v__q_1))
     439          RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfpcrf_m_100_m_29, _v_lsplit___q_1);
     440          for ( ; ; RF_iter(_v__q_1)++)
     441          {
     442            {
     443              if (!RF_iter(_v__q_1))
    444444              {
    445445                goto _block3__branch1;
    … …  
    580580        goto _block1__branch2;
    581581      }
    582       lsplit (_ve_files, 0, _ve_01, _v_lsplit__files);
    583       for ( ; ; iter(_ve_files)++)
     582      RF_lsplit (_ve_files, 0, _ve_01, _v_lsplit__files);
     583      for ( ; ; RF_iter(_ve_files)++)
    584584      {
    585585        {
    586           if (!iter(_ve_files))
     586          if (!RF_iter(_ve_files))
    587587          {
    588588            goto _block1__branch2;
    … …  
    617617                goto _block6__branch1;
    618618              }
    619               rsplit (_ve_file, 0, _v_rsplit__file, _v_ext__1);
    620               for ( ; ; iter(_ve_file)--)
    621               {
    622                 {
    623                   if (!iter(_ve_file))
     619              RF_rsplit (_ve_file, 0, _v_rsplit__file, _v_ext__1);
     620              for ( ; ; RF_iter(_ve_file)--)
     621              {
     622                {
     623                  if (!RF_iter(_ve_file))
    624624                  {
    625625                    goto _block6__branch1;
    … …  
    676676                goto _block8__branch1;
    677677              }
    678               rsplit (_ve_basename, 0, _v_rsplit__basename, _v_filename__1);
    679               for ( ; ; iter(_ve_basename)--)
    680               {
    681                 {
    682                   if (!iter(_ve_basename))
     678              RF_rsplit (_ve_basename, 0, _v_rsplit__basename, _v_filename__1);
     679              for ( ; ; RF_iter(_ve_basename)--)
     680              {
     681                {
     682                  if (!RF_iter(_ve_basename))
    683683                  {
    684684                    goto _block8__branch1;
    … …  
    11871187                      goto _block26__branch1;
    11881188                    }
    1189                     lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfpcrf_m_237_m_28, _v_lsplit__Items);
    1190                     for ( ; ; iter(_ve_Items)++)
     1189                    RF_lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfpcrf_m_237_m_28, _v_lsplit__Items);
     1190                    for ( ; ; RF_iter(_ve_Items)++)
    11911191                    {
    11921192                      {
    1193                         if (!iter(_ve_Items))
     1193                        if (!RF_iter(_ve_Items))
    11941194                        {
    11951195                          goto _block26__branch1;
    … …  
    14231423                    goto _block34__branch1;
    14241424                  }
    1425                   lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfpcrf_m_293_m_39, _v_lsplit__Domain1);
    1426                   for ( ; ; iter(_v_Domain1)++)
    1427                   {
    1428                     {
    1429                       if (!iter(_v_Domain1))
     1425                  RF_lsplit (_v_Domain1, 0, _ve__e__e_tmp_m_rfpcrf_m_293_m_39, _v_lsplit__Domain1);
     1426                  for ( ; ; RF_iter(_v_Domain1)++)
     1427                  {
     1428                    {
     1429                      if (!RF_iter(_v_Domain1))
    14301430                      {
    14311431                        goto _block34__branch1;
    … …  
    15741574                    goto _block38__branch1;
    15751575                  }
    1576                   lsplit (_v_module__1, 0, _ve__e__e_tmp_m_rfpcrf_m_313_m_33, _v_lsplit__module__1);
    1577                   for ( ; ; iter(_v_module__1)++)
    1578                   {
    1579                     {
    1580                       if (!iter(_v_module__1))
     1576                  RF_lsplit (_v_module__1, 0, _ve__e__e_tmp_m_rfpcrf_m_313_m_33, _v_lsplit__module__1);
     1577                  for ( ; ; RF_iter(_v_module__1)++)
     1578                  {
     1579                    {
     1580                      if (!RF_iter(_v_module__1))
    15811581                      {
    15821582                        goto _block38__branch1;
    … …  
    16991699                  goto _block43__branch1;
    17001700                }
    1701                 lsplit (_ve_inputs, 0, _ve__e__e_tmp_m_rfpcrf_m_345_m_29, _v_lsplit__inputs);
    1702                 for ( ; ; iter(_ve_inputs)++)
    1703                 {
    1704                   {
    1705                     if (!iter(_ve_inputs))
     1701                RF_lsplit (_ve_inputs, 0, _ve__e__e_tmp_m_rfpcrf_m_345_m_29, _v_lsplit__inputs);
     1702                for ( ; ; RF_iter(_ve_inputs)++)
     1703                {
     1704                  {
     1705                    if (!RF_iter(_ve_inputs))
    17061706                    {
    17071707                      goto _block43__branch1;
    … …  
    17561756                        goto _continue8;
    17571757                      }
    1758                       lsplit (_vv_java_m_module, 0, _ve__e__e_tmp_m_rfpcrf_m_355_m_36, _v_lsplit__java_m_module);
    1759                       for ( ; ; iter(_vv_java_m_module)++)
     1758                      RF_lsplit (_vv_java_m_module, 0, _ve__e__e_tmp_m_rfpcrf_m_355_m_36, _v_lsplit__java_m_module);
     1759                      for ( ; ; RF_iter(_vv_java_m_module)++)
    17601760                      {
    17611761                        {
    1762                           if (!iter(_vv_java_m_module))
     1762                          if (!RF_iter(_vv_java_m_module))
    17631763                          {
    17641764                            goto _continue8;
    … …  
    18521852        goto _block1__branch1;
    18531853      }
    1854       lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfpcrf_m_424_m_21, _v_lsplit___q_1);
    1855       for ( ; ; iter(_v__q_1)++)
     1854      RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfpcrf_m_424_m_21, _v_lsplit___q_1);
     1855      for ( ; ; RF_iter(_v__q_1)++)
    18561856      {
    18571857        {
    1858           if (!iter(_v__q_1))
     1858          if (!RF_iter(_v__q_1))
    18591859          {
    18601860            goto _block1__branch1;
    … …  
    19141914              goto _block2__branch1;
    19151915            }
    1916             lsplit (_ve_opts, 0, _ve__e__e_tmp_m_rfpcrf_m_427_m_19, _v_lsplit__opts);
    1917             for ( ; ; iter(_ve_opts)++)
    1918             {
    1919               {
    1920                 if (!iter(_ve_opts))
     1916            RF_lsplit (_ve_opts, 0, _ve__e__e_tmp_m_rfpcrf_m_427_m_19, _v_lsplit__opts);
     1917            for ( ; ; RF_iter(_ve_opts)++)
     1918            {
     1919              {
     1920                if (!RF_iter(_ve_opts))
    19211921                {
    19221922                  goto _block2__branch1;
    … …  
    19791979                  goto _block4__branch1;
    19801980                }
    1981                 lsplit (_ve_params, 0, _ve__e__e_tmp_m_rfpcrf_m_434_m_25, _v_lsplit__params);
    1982                 for ( ; ; iter(_ve_params)++)
    1983                 {
    1984                   {
    1985                     if (!iter(_ve_params))
     1981                RF_lsplit (_ve_params, 0, _ve__e__e_tmp_m_rfpcrf_m_434_m_25, _v_lsplit__params);
     1982                for ( ; ; RF_iter(_ve_params)++)
     1983                {
     1984                  {
     1985                    if (!RF_iter(_ve_params))
    19861986                    {
    19871987                      goto _block4__branch1;
    … …  
    20472047            goto _continue1;
    20482048          }
    2049           lsplit (_v_auxblock1, 0, _ve__e__e_tmp_m_rfpcrf_m_448_m_10, _v_lsplit__auxblock1);
    2050           for ( ; ; iter(_v_auxblock1)++)
    2051           {
    2052             {
    2053               if (!iter(_v_auxblock1))
     2049          RF_lsplit (_v_auxblock1, 0, _ve__e__e_tmp_m_rfpcrf_m_448_m_10, _v_lsplit__auxblock1);
     2050          for ( ; ; RF_iter(_v_auxblock1)++)
     2051          {
     2052            {
     2053              if (!RF_iter(_v_auxblock1))
    20542054              {
    20552055                goto _continue1;
    … …  
    23772377                    goto _block11__branch1;
    23782378                  }
    2379                   lsplit (_v__q_5, 0, _ve__e__e_tmp_m_rfpcrf_m_502_m_29, _v_lsplit___q_5);
    2380                   for ( ; ; iter(_v__q_5)++)
    2381                   {
    2382                     {
    2383                       if (!iter(_v__q_5))
     2379                  RF_lsplit (_v__q_5, 0, _ve__e__e_tmp_m_rfpcrf_m_502_m_29, _v_lsplit___q_5);
     2380                  for ( ; ; RF_iter(_v__q_5)++)
     2381                  {
     2382                    {
     2383                      if (!RF_iter(_v__q_5))
    23842384                      {
    23852385                        goto _block11__branch1;
    … …  
    24162416                      Expr _vt_action (_v_deref__lsplit___q_5, 1, 1);
    24172417                      Expr _ve__e__e_tmp_m_rfpcrf_m_502_m_55 (_v_deref__lsplit___q_5, 2, _v_len___e__e_tmp_m_rfpcrf_m_502_m_55);
    2418                       lsplit (_v_deref__deref__lsplit___q_5, 0, _ve__e__e_tmp_m_rfpcrf_m_502_m_33, _v_lsplit__deref__deref__lsplit___q_5);
    2419                       for ( ; ; iter(_v_deref__deref__lsplit___q_5)++)
     2418                      RF_lsplit (_v_deref__deref__lsplit___q_5, 0, _ve__e__e_tmp_m_rfpcrf_m_502_m_33, _v_lsplit__deref__deref__lsplit___q_5);
     2419                      for ( ; ; RF_iter(_v_deref__deref__lsplit___q_5)++)
    24202420                      {
    24212421                        {
    2422                           if (!iter(_v_deref__deref__lsplit___q_5))
     2422                          if (!RF_iter(_v_deref__deref__lsplit___q_5))
    24232423                          {
    24242424                            goto _continue1;
    … …  
    24772477                  goto _block10__branch1;
    24782478                }
    2479                 lsplit (_v__q_6, 0, _ve__e__e_tmp_m_rfpcrf_m_504_m_31, _v_lsplit___q_6);
    2480                 for ( ; ; iter(_v__q_6)++)
    2481                 {
    2482                   {
    2483                     if (!iter(_v__q_6))
     2479                RF_lsplit (_v__q_6, 0, _ve__e__e_tmp_m_rfpcrf_m_504_m_31, _v_lsplit___q_6);
     2480                for ( ; ; RF_iter(_v__q_6)++)
     2481                {
     2482                  {
     2483                    if (!RF_iter(_v__q_6))
    24842484                    {
    24852485                      goto _block10__branch1;
    … …  
    25162516                    Expr _vt_action (_v_deref__lsplit___q_6, 1, 1);
    25172517                    Expr _ve__e__e_tmp_m_rfpcrf_m_504_m_55 (_v_deref__lsplit___q_6, 2, _v_len___e__e_tmp_m_rfpcrf_m_504_m_55);
    2518                     lsplit (_v_deref__deref__lsplit___q_6, 0, _ve__e__e_tmp_m_rfpcrf_m_504_m_35, _v_lsplit__deref__deref__lsplit___q_6);
    2519                     for ( ; ; iter(_v_deref__deref__lsplit___q_6)++)
     2518                    RF_lsplit (_v_deref__deref__lsplit___q_6, 0, _ve__e__e_tmp_m_rfpcrf_m_504_m_35, _v_lsplit__deref__deref__lsplit___q_6);
     2519                    for ( ; ; RF_iter(_v_deref__deref__lsplit___q_6)++)
    25202520                    {
    25212521                      {
    2522                         if (!iter(_v_deref__deref__lsplit___q_6))
     2522                        if (!RF_iter(_v_deref__deref__lsplit___q_6))
    25232523                        {
    25242524                          goto _continue3;
    … …  
    27112711      goto _block1__branch1;
    27122712    }
    2713     lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfpcrf_m_542_m_16, _v_lsplit__Items);
    2714     for ( ; ; iter(_ve_Items)++)
     2713    RF_lsplit (_ve_Items, 0, _ve__e__e_tmp_m_rfpcrf_m_542_m_16, _v_lsplit__Items);
     2714    for ( ; ; RF_iter(_ve_Items)++)
    27152715    {
    27162716      {
    2717         if (!iter(_ve_Items))
     2717        if (!RF_iter(_ve_Items))
    27182718        {
    27192719          goto _block1__branch1;
    … …  
    29122912        goto _block1__branch1;
    29132913      }
    2914       lsplit (_ve_expr, 0, _ve_0, _v_lsplit__expr);
    2915       for ( ; ; iter(_ve_expr)++)
     2914      RF_lsplit (_ve_expr, 0, _ve_0, _v_lsplit__expr);
     2915      for ( ; ; RF_iter(_ve_expr)++)
    29162916      {
    29172917        {
    2918           if (!iter(_ve_expr))
     2918          if (!RF_iter(_ve_expr))
    29192919          {
    29202920            goto _block1__branch1;
    … …  
    29662966                goto _block3__branch1;
    29672967              }
    2968               lsplit (_ve_1, 0, _ve__e__e_tmp_m_rfpcrf_m_569_m_15, _v_lsplit__1);
    2969               for ( ; ; iter(_ve_1)++)
    2970               {
    2971                 {
    2972                   if (!iter(_ve_1))
     2968              RF_lsplit (_ve_1, 0, _ve__e__e_tmp_m_rfpcrf_m_569_m_15, _v_lsplit__1);
     2969              for ( ; ; RF_iter(_ve_1)++)
     2970              {
     2971                {
     2972                  if (!RF_iter(_ve_1))
    29732973                  {
    29742974                    goto _block3__branch1;
    … …  
    30913091        goto _block1__branch1;
    30923092      }
    3093       lsplit (_ve_expr, 0, _ve_0, _v_lsplit__expr);
    3094       for ( ; ; iter(_ve_expr)++)
     3093      RF_lsplit (_ve_expr, 0, _ve_0, _v_lsplit__expr);
     3094      for ( ; ; RF_iter(_ve_expr)++)
    30953095      {
    30963096        {
    3097           if (!iter(_ve_expr))
     3097          if (!RF_iter(_ve_expr))
    30983098          {
    30993099            goto _block1__branch1;
    … …  
    33383338            goto _block2__branch1;
    33393339          }
    3340           rsplit (_ve_file_m_name, 0, _v_rsplit__file_m_name, _ve_name);
    3341           for ( ; ; iter(_ve_file_m_name)--)
    3342           {
    3343             {
    3344               if (!iter(_ve_file_m_name))
     3340          RF_rsplit (_ve_file_m_name, 0, _v_rsplit__file_m_name, _ve_name);
     3341          for ( ; ; RF_iter(_ve_file_m_name)--)
     3342          {
     3343            {
     3344              if (!RF_iter(_ve_file_m_name))
    33453345              {
    33463346                goto _block2__branch1;
    … …  
    33663366                    goto _block3__branch1;
    33673367                  }
    3368                   lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfpcrf_m_627_m_29, _v_lsplit___q_1);
    3369                   for ( ; ; iter(_v__q_1)++)
    3370                   {
    3371                     {
    3372                       if (!iter(_v__q_1))
     3368                  RF_lsplit (_v__q_1, 0, _ve__e__e_tmp_m_rfpcrf_m_627_m_29, _v_lsplit___q_1);
     3369                  for ( ; ; RF_iter(_v__q_1)++)
     3370                  {
     3371                    {
     3372                      if (!RF_iter(_v__q_1))
    33733373                      {
    33743374                        goto _block3__branch1;
    … …  
    34053405                            goto _block4__branch1;
    34063406                          }
    3407                           lsplit (_ve_rest, 0, _ve_1, _v_lsplit__rest);
    3408                           for ( ; ; iter(_ve_rest)++)
     3407                          RF_lsplit (_ve_rest, 0, _ve_1, _v_lsplit__rest);
     3408                          for ( ; ; RF_iter(_ve_rest)++)
    34093409                          {
    34103410                            {
    3411                               if (!iter(_ve_rest))
     3411                              if (!RF_iter(_ve_rest))
    34123412                              {
    34133413                                goto _block4__branch1;
    … …  
    34883488                          goto _block7__branch1;
    34893489                        }
    3490                         lsplit (_ve_rest, 0, _ve_1, _v_lsplit__rest2);
    3491                         for ( ; ; iter(_ve_rest)++)
     3490                        RF_lsplit (_ve_rest, 0, _ve_1, _v_lsplit__rest2);
     3491                        for ( ; ; RF_iter(_ve_rest)++)
    34923492                        {
    34933493                          {
    3494                             if (!iter(_ve_rest))
     3494                            if (!RF_iter(_ve_rest))
    34953495                            {
    34963496                              goto _block7__branch1;
    … …  
    35833583        goto _block1__branch1;
    35843584      }
    3585       lsplit (_v_deref__RevDate, 0, _ve__e__e_tmp_m_rfpcrf_m_656_m_16, _v_lsplit__deref__RevDate);
    3586       for ( ; ; iter(_v_deref__RevDate)++)
     3585      RF_lsplit (_v_deref__RevDate, 0, _ve__e__e_tmp_m_rfpcrf_m_656_m_16, _v_lsplit__deref__RevDate);
     3586      for ( ; ; RF_iter(_v_deref__RevDate)++)
    35873587      {
    35883588        {
    3589           if (!iter(_v_deref__RevDate))
     3589          if (!RF_iter(_v_deref__RevDate))
    35903590          {
    35913591            goto _block1__branch1;
    … …  
    36003600          }
    36013601          Expr _v_subexpr__lsplit__deref__RevDate (_v_lsplit__deref__RevDate, 1, (_v_lsplit__deref__RevDate.get_len () - 1));
    3602           lsplit (_v_subexpr__lsplit__deref__RevDate, 1, _vv_rev, _v_lsplit__lsplit__deref__RevDate);
    3603           for ( ; ; iter(_v_subexpr__lsplit__deref__RevDate)++)
    3604           {
    3605             {
    3606               if (!iter(_v_subexpr__lsplit__deref__RevDate))
     3602          RF_lsplit (_v_subexpr__lsplit__deref__RevDate, 1, _vv_rev, _v_lsplit__lsplit__deref__RevDate);
     3603          for ( ; ; RF_iter(_v_subexpr__lsplit__deref__RevDate)++)
     3604          {
     3605            {
     3606              if (!RF_iter(_v_subexpr__lsplit__deref__RevDate))
    36073607              {
    36083608                goto _continue1;
    … …  
    36203620              }
    36213621              Expr _ve__e__e_tmp_m_rfpcrf_m_656_m_32 (_v_lsplit__lsplit__deref__RevDate, 1, _v_len___e__e_tmp_m_rfpcrf_m_656_m_32);
    3622               lsplit (_v_deref__RevDate2, 0, _ve__e__e_tmp_m_rfpcrf_m_656_m_36, _v_lsplit__deref__RevDate2);
    3623               for ( ; ; iter(_v_deref__RevDate2)++)
    3624               {
    3625                 {
    3626                   if (!iter(_v_deref__RevDate2))
     3622              RF_lsplit (_v_deref__RevDate2, 0, _ve__e__e_tmp_m_rfpcrf_m_656_m_36, _v_lsplit__deref__RevDate2);
     3623              for ( ; ; RF_iter(_v_deref__RevDate2)++)
     3624              {
     3625                {
     3626                  if (!RF_iter(_v_deref__RevDate2))
    36273627                  {
    36283628                    goto _continue2;
    … …  
    36373637                  }
    36383638                  Expr _v_subexpr__lsplit__deref__RevDate2 (_v_lsplit__deref__RevDate2, 1, (_v_lsplit__deref__RevDate2.get_len () - 1));
    3639                   lsplit (_v_subexpr__lsplit__deref__RevDate2, 1, _vv_date, _v_lsplit__lsplit__deref__RevDate2);
    3640                   for ( ; ; iter(_v_subexpr__lsplit__deref__RevDate2)++)
    3641                   {
    3642                     {
    3643                       if (!iter(_v_subexpr__lsplit__deref__RevDate2))
     3639                  RF_lsplit (_v_subexpr__lsplit__deref__RevDate2, 1, _vv_date, _v_lsplit__lsplit__deref__RevDate2);
     3640                  for ( ; ; RF_iter(_v_subexpr__lsplit__deref__RevDate2)++)
     3641                  {
     3642                    {
     3643                      if (!RF_iter(_v_subexpr__lsplit__deref__RevDate2))
    36443644                      {
    36453645                        goto _continue3;
Note: See TracChangeset for help on using the changeset viewer.