Changeset 3a1db5 in git for Singular/kInline.cc

Timestamp:

Nov 3, 2000, 3:50:24 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

e48563d5ed52648088a920c503d1137f101859b6

Parents:

b6b85df0821ee32eafa525d9de58391e73dc09d4

Message:

* as we go along


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

File:

• Singular/kInline.cc (modified) (4 diffs)

Singular/kInline.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: kInline.cc,v 1.11 2000-10-30 13:40:17 obachman Exp $
+ *  Version: $Id: kInline.cc,v 1.12 2000-11-03 14:50:16 obachman Exp $
  *******************************************************************/
 #ifndef KINLINE_CC
@@ -65 +65 @@
 }
 
+KINLINE TObject** initR()
+{
+  return (TObject**) omAlloc0(setmax*sizeof(TObject*));
+}
+
+KINLINE unsigned long* initsevT()
+{
+  return (unsigned long*) omAlloc0(setmax*sizeof(unsigned long));
+}
+
 // initialization
 KINLINE void sTObject::Set(ring r)
@@ -209 +219 @@
 }
 
-KINLINE void sTObject::SetShortExpVector()
-{
-  if (t_p != NULL)
-  {
-    sev = p_GetShortExpVector(t_p, tailRing);
-  }
-  else 
-  {
-    sev = p_GetShortExpVector(p, currRing);
-  }
-}
     
 // Iterations
@@ -454 +453 @@
 }
 
+KINLINE void sLObject::SetShortExpVector()
+{
+  if (t_p != NULL)
+  {
+    sev = p_GetShortExpVector(t_p, tailRing);
+  }
+  else 
+  {
+    sev = p_GetShortExpVector(p, currRing);
+  }
+}
+
+KINLINE sLObject& sLObject::operator=(const sTObject& t)
+{
+  memset(this, 0, sizeof(*this));
+  memcpy(this, &t, sizeof(sTObject));
+  return *this;
+}
+
+
 /***************************************************************
  *