Changeset f43a74 in git for Singular/lists.cc

Timestamp:

May 18, 2005, 5:59:37 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

42f5a8bf6b4c7bed01fc4375213acbce2abcfe04

Parents:

b340969c053d9f828187f38bac97b1feb96e654e

Message:

*hannes: new lib: sheafcohom.lib
         weight stuff
         load stuff


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

File:

• Singular/lists.cc (modified) (6 diffs)

Singular/lists.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: lists.cc,v 1.26 2005-01-18 15:42:00 Singular Exp $ */
+/* $Id: lists.cc,v 1.27 2005-05-18 15:59:36 Singular Exp $ */
 /*
 * ABSTRACT: handling of the list type
@@ -82 +82 @@
     return NULL;
   lists l=(lists) omAllocBin(slists_bin);
-  l->Init(max(ul->nr+2,pos+1));
+  l->Init(si_max(ul->nr+2,pos+1));
   int i,j;
 
@@ -200 +200 @@
 
 lists liMakeResolv(resolvente r, int length, int reallen,
-  int typ0, intvec ** weights)
+  int typ0, intvec ** weights, int add_row_shift)
 {
   lists L=(lists)omAlloc0Bin(slists_bin);
@@ -213 +213 @@
     while (r[length-1]==NULL) length--;
     if (reallen<=0) reallen=pVariables;
-    reallen=max(reallen,length);
+    reallen=si_max(reallen,length);
     L->Init(reallen);
     int i=0;
@@ -244 +244 @@
           else
           {
-            r[i]->rank=max(rank,idRankFreeModule(r[i]));
+            r[i]->rank=si_max(rank,idRankFreeModule(r[i]));
           }
           idSkipZeroes(r[i]);
@@ -251 +251 @@
         if ((weights!=NULL) && (weights[i]!=NULL))
         {
-          atSet((idhdl)&L->m[i],omStrDup("isHomog"),weights[i],INTVEC_CMD);
+          intvec *w=ivCopy(weights[i]);
+          w += add_row_shift;
+          atSet((idhdl)&L->m[i],omStrDup("isHomog"),w,INTVEC_CMD);
           weights[i] = NULL;
         }