Ticket #1540: tt1540_imcc.patch

File tt1540_imcc.patch, 1.0 KB (added by plobsing, 4 years ago)

inplace concat IMCC patch

  • compilers/imcc/imcc.y

     
    21332133op_assign: 
    21342134     target assign_op var 
    21352135         { $$ = MK_I(interp, IMCC_INFO(interp)->cur_unit, $2, 2, $1, $3); } 
     2136   | target CONCAT_ASSIGN var 
     2137         { 
     2138             if ($1->set == 'P') 
     2139                 $$ = MK_I(interp, IMCC_INFO(interp)->cur_unit, "concat", 2, $1, $3); 
     2140             else 
     2141                 $$ = MK_I(interp, IMCC_INFO(interp)->cur_unit, "concat", 3, $1, $1, $3); 
     2142         } 
    21362143   ; 
    21372144 
    21382145assign_op: 
     
    21422149   | DIV_ASSIGN                { $$ = (char *)"div"; } 
    21432150   | MOD_ASSIGN                { $$ = (char *)"mod"; } 
    21442151   | FDIV_ASSIGN               { $$ = (char *)"fdiv"; } 
    2145    | CONCAT_ASSIGN             { $$ = (char *)"concat"; } 
    21462152   | BAND_ASSIGN               { $$ = (char *)"band"; } 
    21472153   | BOR_ASSIGN                { $$ = (char *)"bor"; } 
    21482154   | BXOR_ASSIGN               { $$ = (char *)"bxor"; }