Changeset d4c53a in git


Ignore:
Timestamp:
Oct 10, 2008, 5:49:08 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
cfb8edb7456b2ae7760ad4a0b9982a2128ca52d3
Parents:
36e34686a0b133e6f1ebe6746a9e6ece43a48cf7
Message:
*hannes: intmat=intvec


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

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r36e346 rd4c53a  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipassign.cc,v 1.98 2008-06-26 18:35:11 motsak Exp $ */
     4/* $Id: ipassign.cc,v 1.99 2008-10-10 15:49:08 Singular Exp $ */
    55
    66/*
     
    425425static BOOLEAN jiA_INTVEC(leftv res, leftv a, Subexpr e)
    426426{
    427   if (res->data!=NULL) delete ((intvec *)res->data);
    428   res->data=(void *)a->CopyD(INTVEC_CMD);
    429   jiAssignAttr(res,a);
    430   return FALSE;
     427  if ((res->data==NULL) || (res->Typ()==a->Typ()))
     428  {
     429    if (res->data!=NULL) delete ((intvec *)res->data);
     430    res->data=(void *)a->CopyD(INTVEC_CMD);
     431    jiAssignAttr(res,a);
     432    return FALSE;
     433  }
     434  else
     435  {
     436    intvec *r=(intvec *)(res->data);
     437    intvec *s=(intvec *)(a->data);
     438    int i=si_min(r->length(), s->length())-1;
     439    for(;i>=0;i--)
     440    {
     441      (*r)[i]=(*s)[i];
     442    }
     443    return (r->length()< s->length());
     444  }
    431445}
    432446static BOOLEAN jiA_IDEAL(leftv res, leftv a, Subexpr e)
     
    644658,{jiA_INTVEC,   INTVEC_CMD,     INTVEC_CMD }
    645659,{jiA_INTVEC,   INTMAT_CMD,     INTMAT_CMD }
     660,{jiA_INTVEC,   INTMAT_CMD,     INTVEC_CMD }
    646661,{jiA_NUMBER,   NUMBER_CMD,     NUMBER_CMD }
    647662,{jiA_BIGINT,   BIGINT_CMD,     BIGINT_CMD }
Note: See TracChangeset for help on using the changeset viewer.