Changeset 9c1a7ca in tol

Timestamp:

Feb 26, 2009, 10:59:08 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

e9bbf15

Parents:

107d98a

Message:

Before invoking LeftEvaluateExpr make sure StopFlag is Off
Fixes #614

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

File:

• toltcl/generic/tolaccess.cpp (modified) (2 diffs)

toltcl/generic/tolaccess.cpp

@@ -31 +31 @@
 #include <tol/tol_version_def.h>
 #include <tol/tol_bcommon.h>
-#include <tol/tol_bstruct.h>
 #include <tol/tol_blanguag.h>
 #include <tol/tol_bmatgra.h>
@@ -1659 +1658 @@
   }
   bool oldEnabled = BOut::Disable();
+  bool stopFlag = BGrammar::StopFlag();
+  BGrammar::Turn_StopFlag_Off();
   BSyntaxObject* obj = GraCode( )->BGrammar::LeftEvaluateExpr( expr );
+  if ( stopFlag ) {
+    BGrammar::Turn_StopFlag_On();
+  } else {
+    BGrammar::Turn_StopFlag_Off();
+  }
   if( oldEnabled ) { BOut::Enable( ); }
   if(obj)