view release on metacpan or  search on metacpan

Compiler/parser.c  view on Meta::CPAN

			sv_catpvn(amd_yyvsp[-1].sv, v, len);

			amd_yyval.sv = amd_yyvsp[-1].sv;
		;
    break;}
case 165:
#line 1501 "parser.y"
{
			STRLEN	 len;
			char	*v;

			v = SvPV(amd_yyvsp[-1].sv, len);
			sv_setpv(amd_yyvsp[-1].sv, "#");
			sv_catpvn(amd_yyvsp[-1].sv, v, len);

			amd_yyval.sv = amd_yyvsp[-1].sv;
		;
    break;}
case 167:
#line 1517 "parser.y"
{
			/* Coercion should NOT be necessary. */
			sv_catpv(amd_yyvsp[-2].sv, SvPVX(amd_yyvsp[0].sv));
			SvREFCNT_dec(amd_yyvsp[0].sv);
			amd_yyval.sv = amd_yyvsp[-2].sv;
		;
    break;}
case 168:
#line 1524 "parser.y"
{
			sv_catpv(amd_yyvsp[-2].sv, SvPVX(amd_yyvsp[0].sv));
			SvREFCNT_dec(amd_yyvsp[0].sv);
			amd_yyval.sv = amd_yyvsp[-2].sv;
		;
    break;}
case 169:
#line 1530 "parser.y"
{
			char	 buf[64];
			snprintf(buf, 64, "%d", amd_yyvsp[0].number);
			amd_yyval.sv = newSVpv(buf, 0);
		;
    break;}
case 171:
#line 1541 "parser.y"
{
			sv_catpv(amd_yyvsp[-1].sv, SvPVX(amd_yyvsp[0].sv));
			SvREFCNT_dec(amd_yyvsp[0].sv);
			amd_yyval.sv = amd_yyvsp[-1].sv;
		;
    break;}
case 174:
#line 1555 "parser.y"
{
			amd_yyval.av = amd_yyvsp[-1].av;
		;
    break;}
case 175:
#line 1562 "parser.y"
{
			/* This doesn't expand the pairs into a single list.
			 * There is a hack elsewhere. */
			amd_yyval.av = amd_yyvsp[-1].av;
		;
    break;}
case 176:
#line 1572 "parser.y"
{
			amd_yyval.obj = amd_yyvsp[-1].obj;
		;
    break;}
}
   /* the action file gets copied in in place of this dollarsign */
#line 554 "/usr/share/bison.simple"

  amd_yyvsp -= amd_yylen;
  amd_yyssp -= amd_yylen;
#ifdef YYLSP_NEEDED
  amd_yylsp -= amd_yylen;
#endif

#if YYDEBUG != 0
  if (amd_yydebug)
    {
      short *ssp1 = amd_yyss - 1;
      fprintf (stderr, "state stack now");
      while (ssp1 != amd_yyssp)
	fprintf (stderr, " %d", *++ssp1);
      fprintf (stderr, "\n");
    }
#endif

  *++amd_yyvsp = amd_yyval;

#ifdef YYLSP_NEEDED
  amd_yylsp++;
  if (amd_yylen == 0)
    {
      amd_yylsp->first_line = amd_yylloc.first_line;
      amd_yylsp->first_column = amd_yylloc.first_column;
      amd_yylsp->last_line = (amd_yylsp-1)->last_line;
      amd_yylsp->last_column = (amd_yylsp-1)->last_column;
      amd_yylsp->text = 0;
    }
  else
    {
      amd_yylsp->last_line = (amd_yylsp+amd_yylen-1)->last_line;
      amd_yylsp->last_column = (amd_yylsp+amd_yylen-1)->last_column;
    }
#endif

  /* Now "shift" the result of the reduction.
     Determine what state that goes to,
     based on the state we popped back to
     and the rule number reduced by.  */

  amd_yyn = amd_yyr1[amd_yyn];

  amd_yystate = amd_yypgoto[amd_yyn - YYNTBASE] + *amd_yyssp;
  if (amd_yystate >= 0 && amd_yystate <= YYLAST && amd_yycheck[amd_yystate] == *amd_yyssp)
    amd_yystate = amd_yytable[amd_yystate];