Changeset 0990bb9 in tol

Timestamp:

Mar 14, 2012, 4:20:51 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

90a07e1

Parents:

de17be6

Message:

ref #1478, al limpiar un NameBlock se debe establecer a NULL el NameBlock del BOperator si este comparte el NameBlock con el miembro Code que lo referencia.

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

File:

• tol/btol/bgrammar/nameblock.cpp (modified) (1 diff)

tol/btol/bgrammar/nameblock.cpp

@@ -217 +217 @@
   owner_ = NULL;
   for(n=1; n<=set_.Card(); n++)
-        {
-    if(set_[n])
+  {
+    if( set_[n] )
     { 
       set_[n]->PutNameBlock(NULL);
+      BSyntaxObject *obj = set_[n];
+      if( obj->Grammar() == GraCode() ) {
+        BUserCode* uCode = UCode(obj);
+        BOperator* opr   = GetOperator(uCode);
+        if ( opr->NameBlock() && opr->NameBlock() == this ) {
+          opr->PutNameBlock( NULL );
+        }
+      }
     }
   }