fix: removed some unsed variables

Author: hannes14

Singular/grammar.cc

@@ -3943,7 +3943,6 @@ YYSTYPE yylval;
 /* Line 1464 of yacc.c  */
 #line 1532 "grammar.y"
     {
-            procinfov pi;
             idhdl h = enterid((yyvsp[(2) - (3)].name),myynest,PROC_CMD,&IDROOT,TRUE);
             if (h==NULL) {omFree((ADDRESS)(yyvsp[(2) - (3)].name));omFree((ADDRESS)(yyvsp[(3) - (3)].name)); YYERROR;}
             iiInitSingularProcinfo(IDPROC(h),"", (yyvsp[(2) - (3)].name), 0, 0);
@@ -3969,7 +3968,6 @@ YYSTYPE yylval;
             }
             char *args=iiProcArgs((yyvsp[(2) - (3)].name),FALSE);
             omFree((ADDRESS)(yyvsp[(2) - (3)].name));
-            procinfov pi;
             iiInitSingularProcinfo(IDPROC(h),"", (yyvsp[(1) - (3)].name), 0, 0);
             IDPROC(h)->data.s.body = (char *)omAlloc(strlen((yyvsp[(3) - (3)].name))+strlen(args)+14);;
             sprintf(IDPROC(h)->data.s.body,"%s\n%s;return();\n\n",args,(yyvsp[(3) - (3)].name));
@@ -3995,7 +3993,6 @@ YYSTYPE yylval;
             }
             char *args=iiProcArgs((yyvsp[(2) - (4)].name),FALSE);
             omFree((ADDRESS)(yyvsp[(2) - (4)].name));
-            procinfov pi;
             iiInitSingularProcinfo(IDPROC(h),"", (yyvsp[(1) - (4)].name), 0, 0);
             omFree((ADDRESS)(yyvsp[(1) - (4)].name));
             IDPROC(h)->data.s.body = (char *)omAlloc(strlen((yyvsp[(4) - (4)].name))+strlen(args)+14);;

Singular/grammar.y

@@ -1531,7 +1531,6 @@ forcmd:
 proccmd:
         PROC_CMD extendedid BLOCKTOK
           {
-            procinfov pi;
             idhdl h = enterid($2,myynest,PROC_CMD,&IDROOT,TRUE);
             if (h==NULL) {omFree((ADDRESS)$2);omFree((ADDRESS)$3); YYERROR;}
             iiInitSingularProcinfo(IDPROC(h),"", $2, 0, 0);
@@ -1552,7 +1551,6 @@ proccmd:
             }
             char *args=iiProcArgs($2,FALSE);
             omFree((ADDRESS)$2);
-            procinfov pi;
             iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
             IDPROC(h)->data.s.body = (char *)omAlloc(strlen($3)+strlen(args)+14);;
             sprintf(IDPROC(h)->data.s.body,"%s\n%s;return();\n\n",args,$3);
@@ -1573,7 +1571,6 @@ proccmd:
             }
             char *args=iiProcArgs($2,FALSE);
             omFree((ADDRESS)$2);
-            procinfov pi;
             iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
             omFree((ADDRESS)$1);
             IDPROC(h)->data.s.body = (char *)omAlloc(strlen($4)+strlen(args)+14);;