Changeset 509f7da in git

Timestamp:

Sep 1, 1998, 4:58:25 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

34b0bab7baef2605bebe7b2ec5d3bb8b8bf78be8

Parents:

7baf8c72ae529b03f3b16f6a94041818d981c794

Message:

* hannes: fixed missing init for proc (enterid(...,TRUE))


git-svn-id: file:///usr/local/Singular/svn/trunk@2494 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/grammar.y (modified) (5 diffs)

Singular/grammar.y

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.46 1998-08-25 13:33:16 krueger Exp $ */
+/* $Id: grammar.y,v 1.47 1998-09-01 14:58:25 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -1450 +1450 @@
             }
             char *args=iiProcArgs($2,FALSE);
+            FreeL((ADDRESS)$2);
             procinfov pi;
-            FreeL((ADDRESS)$2);
             iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
             IDPROC(h)->data.s.body = (char *)AllocL(strlen($3)+strlen(args)+14);;
@@ -1457 +1457 @@
             FreeL((ADDRESS)args);
             FreeL((ADDRESS)$3);
-            //Print(">>%s<<\n",IDPROC(h)->data.s.body);
           }
         | PROC_DEF STRINGTOK STRINGTOK BLOCKTOK
           {
             FreeL((ADDRESS)$3);
-            idhdl h = enterid($1,myynest,PROC_CMD,&IDROOT,FALSE);
+            idhdl h = enterid($1,myynest,PROC_CMD,&IDROOT,TRUE);
             if (h==NULL)
             {
@@ -1470 +1469 @@
             }
             char *args=iiProcArgs($2,FALSE);
+            FreeL((ADDRESS)$2);
             procinfov pi;
-            FreeL((ADDRESS)$2);
             iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
             IDPROC(h)->data.s.body = (char *)AllocL(strlen($4)+strlen(args)+14);;
@@ -1477 +1476 @@
             FreeL((ADDRESS)args);
             FreeL((ADDRESS)$4);
-            //Print(">>%s<<\n",IDPROC(h)->data.s.body);
           }
         ;