Changeset f52515c in git

Timestamp:

Apr 11, 2005, 5:59:01 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

8479a08a19d59224f0f20f0b7804e2af4b906631

Parents:

6e9d48a5be22246c480bde3b44371cbb86585656

Message:

*hannes: mstd(ideal(1)) fixed


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

File:

• kernel/kstd1.cc (modified) (2 diffs)

kernel/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.5 2005-02-17 09:42:19 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.6 2005-04-11 15:59:01 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1793 +1793 @@
   if ((IDELEMS(r)==1) && (r->m[0]!=NULL) && pIsConstant(r->m[0]) && (strat->ak==0))
   {
-    ideal M=idInit(1,F->rank);
+    M=idInit(1,F->rank);
     M->m[0]=pOne();
     //if (strat->ak!=0) { pSetComp(M->m[0],strat->ak); pSetmComp(M->m[0]); }