Changeset 0fb35c7 in tol

Timestamp:

Jan 18, 2011, 2:36:06 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

8916937

Parents:

3f78276

Message:

Refs #881
Built-in operators must be copied in older way

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

File:

• tol/btol/set_type/setgra.cpp (modified) (1 diff)

tol/btol/set_type/setgra.cpp

@@ -2269 +2269 @@
   if(opr)
   {
-    BUserFunction* usf = new BUserFunction("",opr->Grammar());
-    BUserFunCode* result = usf->GetCode();
-    usf->PutName(opr->Name());
-    usf->PutDescription(opr->Description());
-    usf->SetExpression(opr->Declaration(), opr->Definition()); 
-    result->PutName(opr->Name());
-    result->PutDescription(opr->Description());
-    return(result);
+    if(opr->Mode()==BBUILTINFUNMODE)
+    {
+      BCode newCod;
+      newCod.Replicate(Code(obj));
+      return(new BContensCode("",newCod,""));
+    }
+    else if(opr->Mode()==BUSERFUNMODE)
+    {
+      BUserFunction* usf = new BUserFunction("",opr->Grammar());
+      BUserFunCode* result = usf->GetCode();
+      usf->PutName(opr->Name());
+      usf->PutDescription(opr->Description());
+      usf->SetExpression(opr->Declaration(), opr->Definition()); 
+      result->PutName(opr->Name());
+      result->PutDescription(opr->Description());
+      return(result);
+    }
   }
   else