Changeset 0a7bf5 in git


Ignore:
Timestamp:
Jan 29, 2007, 5:56:56 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
ec7055abfd61047c42a1d4ee6e39e735fac26073
Parents:
ac1953ec20cdaf1e6df0baa6ab6041ce0599b8ff
Message:
*hannes: qideal q=...


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

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    rac1953e r0a7bf5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipassign.cc,v 1.85 2007-01-09 14:31:05 Singular Exp $ */
     4/* $Id: ipassign.cc,v 1.86 2007-01-29 16:56:56 Singular Exp $ */
    55
    66/*
     
    433433static BOOLEAN jiA_IDEAL(leftv res, leftv a, Subexpr e)
    434434{
     435  if (currRing->minpoly!=NULL) {omCheckAddr(currRing->minpoly);}
    435436  if (res->data!=NULL) idDelete((ideal*)&res->data);
     437  if (currRing->minpoly!=NULL) {omCheckAddr(currRing->minpoly);}
    436438  res->data=(void *)a->CopyD(MATRIX_CMD);
    437439  idNormalize((ideal)res->data);
     
    562564    return TRUE;
    563565  }
    564   ring qr;
    565   int i,j;
    566   int *pi;
    567566
    568567  assumeStdFlag(a);
    569   qr=(ring)res->Data();
    570   ring qrr=rCopy(currRing);
     568  ring qr=(ring)res->Data(); // the declaration allocated space
     569  ring qrr=rCopy(currRing);
     570                 // we have to fill it, but the copy also allocates space
    571571  memcpy4(qr,qrr,sizeof(ip_sring));
    572572  omFreeBin((ADDRESS)qrr, ip_sring_bin);
     
    583583    }
    584584
    585     // is this an exterior algebra or a commuunative polynomial ring \otimes exterior algebra?
     585    // is this an exterior algebra or a commutative polynomial ring \otimes exterior algebra?
    586586    // we should check whether qr->qideal is of the form: y_i^2, y_{i+1}^2, \ldots, y_j^2 (j > i)
    587587    //.if yes, setup qr->nc->type, etc.
Note: See TracChangeset for help on using the changeset viewer.