Changeset 883eacf in git

Timestamp:

Jun 1, 2010, 3:04:51 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

fe4bc7dbb3af0c3e854c0af71905892f47159468

Parents:

deb65390f406822451673902ed9d7f073d8deb1d

Message:

fix indepSet(0,1)

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

Location:

Singular

Files:

• iparith.cc (modified) (1 diff)
• ipshell.cc (modified) (1 diff)

Singular/iparith.cc

@@ -516 +516 @@
     intvec *vv=new intvec(l);
     int i;
-    for(i=0;i<l;i++) { (*vv)[i]=d; }
+    for(i=l-1;i>=0;i--) { (*vv)[i]=d; }
     res->data=(char *)vv;
   }

Singular/ipshell.cc

@@ -975 +975 @@
 
   hexist = hInit(S, Q, &hNexist);
-  if ((hNexist == 0) || (hisModule!=0))
+  if (hNexist == 0)
+  {
+    intvec *iv=new intvec(pVariables);
+    for(i=0; i<pVariables; i++) (*iv)[i]=1;
+    res->Init(1);
+    res->m[0].rtyp=INTVEC_CMD;
+    res->m[0].data=(intvec*)iv;
+    return res;
+  }
+  else if (hisModule!=0)
   {
     res->Init(0);