Changeset 34ac5c in git for Singular/ipassign.cc


Ignore:
Timestamp:
Apr 25, 2020, 8:51:11 PM (3 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
97545c1fa4c4b6d1064e403eea440425970b4a4d
Parents:
8e903f23324de1e4ec1dc9926b6de0a16de605d6
Message:
opt: jiAssign_1
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r8e903f r34ac5c  
    11151115* assign a = b
    11161116*/
    1117 static BOOLEAN jiAssign_1(leftv l, leftv r, BOOLEAN toplevel, BOOLEAN is_qring=FALSE)
    1118 {
    1119   int rt=r->Typ();
     1117static BOOLEAN jiAssign_1(leftv l, leftv r, int rt, BOOLEAN toplevel, BOOLEAN is_qring=FALSE)
     1118{
    11201119  if (rt==0)
    11211120  {
     
    13841383    h=l->next;
    13851384    l->next=NULL;
    1386     nok=jiAssign_1(l,&t,TRUE);
     1385    nok=jiAssign_1(l,&t,INT_CMD,TRUE);
    13871386    l->next=h;
    13881387    if (nok) return TRUE;
     
    14181417    h=l->next;
    14191418    l->next=NULL;
    1420     nok=jiAssign_1(l,&t,TRUE);
     1419    nok=jiAssign_1(l,&t,POLY_CMD,TRUE);
    14211420    l->next=h;
    14221421    t.CleanUp();
     
    16561655      idhdl hh=NULL;
    16571656      if ((l->rtyp==IDHDL)&&(l->Typ()==DEF_CMD)) hh=(idhdl)l->data;
    1658       nok=jiAssign_1(l,&t,TRUE);
     1657      nok=jiAssign_1(l,&t,POLY_CMD,TRUE);
    16591658      if (hh!=NULL) { ipMoveId(hh);hh=NULL;}
    16601659      l->next=h;
     
    17321731    h=l->next;
    17331732    l->next=NULL;
    1734     nok=jiAssign_1(l,&t,TRUE);
     1733    nok=jiAssign_1(l,&t,STRING_CMD,TRUE);
    17351734    if (nok)
    17361735    {
     
    19381937      &&((lt==rt)||(lt!=LIST_CMD)))
    19391938      {
    1940         b=jiAssign_1(l,r,toplevel,is_qring);
     1939        b=jiAssign_1(l,r,rt,toplevel,is_qring);
    19411940        if (l->rtyp==IDHDL)
    19421941        {
     
    19631962      )
    19641963      {
    1965         b=jiAssign_1(l,r,toplevel);
     1964        b=jiAssign_1(l,r,rt,toplevel);
    19661965        if((l->rtyp==IDHDL)&&(l->data!=NULL))
    19671966        {
     
    20492048      if ((hh->next==NULL)&&(hh->Typ()==IDEAL_CMD))
    20502049      {
    2051         b=jiAssign_1(l,hh,toplevel); /* map-assign: map f=r,i; */
     2050        b=jiAssign_1(l,hh,IDEAL_CMD,toplevel); /* map-assign: map f=r,i; */
    20522051        omFreeBin(hh,sleftv_bin);
    20532052        return b;
Note: See TracChangeset for help on using the changeset viewer.