Changeset 509f7da in git for Singular/grammar.y


Ignore:
Timestamp:
Sep 1, 1998, 4:58:25 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
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:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/grammar.y

    r7baf8c r509f7da  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.46 1998-08-25 13:33:16 krueger Exp $ */
     4/* $Id: grammar.y,v 1.47 1998-09-01 14:58:25 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
    … …  
    14501450            }
    14511451            char *args=iiProcArgs($2,FALSE);
     1452            FreeL((ADDRESS)$2);
    14521453            procinfov pi;
    1453             FreeL((ADDRESS)$2);
    14541454            iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
    14551455            IDPROC(h)->data.s.body = (char *)AllocL(strlen($3)+strlen(args)+14);;
    … …  
    14571457            FreeL((ADDRESS)args);
    14581458            FreeL((ADDRESS)$3);
    1459             //Print(">>%s<<\n",IDPROC(h)->data.s.body);
    14601459          }
    14611460        | PROC_DEF STRINGTOK STRINGTOK BLOCKTOK
    14621461          {
    14631462            FreeL((ADDRESS)$3);
    1464             idhdl h = enterid($1,myynest,PROC_CMD,&IDROOT,FALSE);
     1463            idhdl h = enterid($1,myynest,PROC_CMD,&IDROOT,TRUE);
    14651464            if (h==NULL)
    14661465            {
    … …  
    14701469            }
    14711470            char *args=iiProcArgs($2,FALSE);
     1471            FreeL((ADDRESS)$2);
    14721472            procinfov pi;
    1473             FreeL((ADDRESS)$2);
    14741473            iiInitSingularProcinfo(IDPROC(h),"", $1, 0, 0);
    14751474            IDPROC(h)->data.s.body = (char *)AllocL(strlen($4)+strlen(args)+14);;
    … …  
    14771476            FreeL((ADDRESS)args);
    14781477            FreeL((ADDRESS)$4);
    1479             //Print(">>%s<<\n",IDPROC(h)->data.s.body);
    14801478          }
    14811479        ;
Note: See TracChangeset for help on using the changeset viewer.