Changeset 46feb1 in git for Singular/kutil.cc

Timestamp:

Apr 27, 1998, 6:09:37 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

38b2367c696dca8d148e865e1462e98984c9ccab

Parents:

94f4f4606dc2922d461753e53811bf335011bcf5

Message:

* hannes: use ReAlloc for enlargeT, enlargeL  (kutil.cc)


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

File:

• Singular/kutil.cc (modified) (3 diffs)

Singular/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.18 1998-04-23 09:52:11 Singular Exp $ */
+/* $Id: kutil.cc,v 1.19 1998-04-27 16:08:44 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for std
@@ -205 +205 @@
 }
 
-void enlargeT (TSet* T,int* length,int incr)
+static inline void enlargeT (TSet* T,int* length,int incr)
 {
   TSet h;
 
-  h = (TSet)Alloc(((*length)+incr)* sizeof(TObject));
-  /*for (i=0; i<=(*length)-1; i++) h[i] = (*T)[i];*/
-  memcpy(h, *T, (*length) * sizeof(TObject));
-  Free((ADDRESS)*T,((*length)*sizeof(TObject)));
-  *T = h;
+  *T = (TSet)ReAlloc((ADDRESS)(*T),(*length)*sizeof(TObject),
+                                   ((*length)+incr)*sizeof(TObject));
   (*length) += incr;
 }
@@ -250 +247 @@
 }
 
-void enlargeL (LSet* L,int* length,int incr)
+static inline void enlargeL (LSet* L,int* length,int incr)
 {
   LSet h;
 
-  h = (LSet)Alloc(((*length)+incr)*sizeof(LObject));
-  /*for (i=0; i<(*length); i++) h[i] = (*L)[i];*/
-  memcpy(h, *L, (*length) * sizeof(LObject));
-  Free((ADDRESS)*L,((*length)*sizeof(LObject)));
-  *L = h;
+  *L = (LSet)ReAlloc((ADDRESS)(*L),(*length)*sizeof(LObject),
+                                   ((*length)+incr)*sizeof(LObject));
   (*length) += incr;
 }