Changeset 5afadfb in tol

Timestamp:

Dec 12, 2010, 12:23:14 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

0cd09fd

Parents:

72e3a4b

Message:

Refs #1029
Destroying argument name of special function Cint.export_to_tol

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

File:

• tol/btol/bgrammar/spfuninst.cpp (modified) (4 diffs)

tol/btol/bgrammar/spfuninst.cpp

@@ -1819 +1819 @@
         {
           double cnt = *(double*)ptr;
-          result = new BContensDat(name,cnt,"");
+          result = new BContensDat("",cnt,"");
         }
       }
@@ -1835 +1835 @@
         {
           BMat cnt(rows, columns, (BDat*)buffer);  
-          result = new BContensMat(name,cnt,"");
+          result = new BContensMat("",cnt,"");
         }
       }
@@ -1849 +1849 @@
         {
           BText cnt(buffer, length);  
-          result = new BContensText(name,cnt,"");
+          result = new BContensText("",cnt,"");
         }
       }
@@ -1858 +1858 @@
               gra->Name());
       }
+      if(result)
+      {
+        result->PutName(name);
+        BGrammar::AddObject(result);
+      }
+      DESTROY(uNam);
     }
     result=BSpecialFunction::TestResult(_name_,result,tre,NIL,BFALSE);
-  }
-  if(result)
-  {
-    BGrammar::AddObject(result);
   }
   return(result);