Changeset b4f1dbf in tol

Timestamp:

Feb 24, 2012, 5:49:00 PM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

44d90fd

Parents:

85745be

Message:

Fixes #1452

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4200 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/btol/set_type/setgra.cpp (modified) (3 diffs)

tol/btol/set_type/setgra.cpp

@@ -124 +124 @@
 
 
+  void ErrCannotModify(const BText& member, const BSyntaxObject* constant) 
+  { 
+    Error(I2("Cannot modify <","No se puede modificar <") + member +
+          I2("> of constant object ","> del objeto constante ") + 
+          constant->Identify()); 
+  }
 
 //--------------------------------------------------------------------
@@ -162 +168 @@
     bool incrementalIndexByName = false;
     BUserSet* uSet1 = USet(lst->Car()); lst = lst->Cdr();
+    if(uSet1->IsConstant()) { 
+      ErrCannotModify("value",uSet1);
+      return(NULL);
+    }
     BUserSet* uSet2 = USet(lst->Car()); lst = lst->Cdr();
     if(lst && lst->Car())
@@ -209 +219 @@
     bool incrementalIndexByName = false;
     BUserSet* uSet = USet(lst->Car()); lst = lst->Cdr();
+    if(uSet->IsConstant()) { 
+      ErrCannotModify("value",uSet);
+      return(NULL);
+    }
     BUserDat* uDat = UDat(lst->Car()); lst = lst->Cdr();
     bool do_deletion = true;