Changeset a425b7a in git

Timestamp:

Aug 21, 2019, 3:07:32 PM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'd1ba061a762c62d3a25159d8da8b6e17332291fa')

Children:

47ad55e0643cabc177b35b9d808a96a23010d6d0

Parents:

0f194b4db842ab87efd9f6447b9793f2d687bceb

Message:

opt: jjKLAMMER*: memory

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -1550 +1550 @@
 {
   if(u->name==NULL) return TRUE;
-  char * nn = (char *)omAlloc(strlen(u->name) + 14);
+  long slen = strlen(u->name) + 14;
+  char *nn = (char*) omAlloc(slen);
   sprintf(nn,"%s(%d)",u->name,(int)(long)v->Data());
-  omFree((ADDRESS)u->name);
-  u->name=NULL;
   char *n=omStrDup(nn);
-  omFree((ADDRESS)nn);
+  omFreeSize((ADDRESS)nn,slen);
   syMake(res,n);
   if (u->next!=NULL) return jjKLAMMER_rest(res,u->next,v);
@@ -1582 +1581 @@
     syMake(p,omStrDup(n));
   }
-  omFree((ADDRESS)u->name);
-  u->name = NULL;
   omFreeSize(n, slen);
   if (u->next!=NULL) return jjKLAMMER_rest(res,u->next,v);