Changeset 6ae4f5 in git for Singular/lists.cc

Timestamp:

Apr 9, 1997, 2:20:17 PM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

feaddd38f9cf78a784df825347f9f83cbb667a40

Parents:

e2f1c7b90d7253794bed6c9fcd2adf63ddae5124

Message:

* hannes: - corrected scanner.l: parsing of strings in blocks:
            if (1) { write("","}"); }
          - corrected ipassign.cc: assignment of "dummy" types: DEF, NONE
          - corrected sleftv::Print(_), initialisation of _
          - added conversion int->def
          - added CopyD(DEF)
          - in insert(..): object should not be of type NONE (lists.cc:lInsert0)
          - added int*intvec, int*intmat to iparith.cc


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

File:

• Singular/lists.cc (modified) (5 diffs)

Singular/lists.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: lists.cc,v 1.3 1997-04-02 15:07:20 Singular Exp $ */
+/* $Id: lists.cc,v 1.4 1997-04-09 12:19:55 Singular Exp $ */
 /*
 * ABSTRACT: handling of the list type
@@ -70 +70 @@
 lists lInsert0(lists ul, leftv v, int pos)
 {
+  if ((pos<0)||(v->rtyp==NONE))
+    return NULL;
   lists l=(lists) Alloc(sizeof(slists));
-  if (pos<0) return NULL;
   l->Init(max(ul->nr+2,pos+1));
   int i,j;
@@ -99 +100 @@
   lists ul=(lists)u->CopyD();
   res->data=(char *)lInsert0(ul,v,0);
-  return FALSE;
+  return (res->data==NULL);
 }
 
@@ -109 +110 @@
   lists ul=(lists)u->CopyD();
   res->data=(char *)lInsert0(ul,v,(int)w->Data());
-  return FALSE;
+  return (res->data==NULL);
 }
 
@@ -119 +120 @@
   lists ul=(lists)u->CopyD();
   res->data=(char *)lInsert0(ul,v,ul->nr+1);
-  return FALSE;
+  return (res->data==NULL);
 }