Changeset 27 for trunk/orca/ovalue.c

Timestamp:

02/07/06 16:12:19 (3 years ago)

Author:

krobillard

Message:

Added orResetEnv().

Files:

• trunk/orca/ovalue.c (modified) (1 diff)

trunk/orca/ovalue.c

@@ -523 +523 @@
     memReport( 1 );
 #endif
+}
+
+
+/**
+  Recover from an error.  It does not modify any existing values; nothing
+  is freed and no files are closed.
+  This should only be used from outside a top-level eval call.
+*/
+void orResetEnv( OEnv* env )
+{
+    env->callStack.used = 0;
+    env->dataStack.used = 0;
+    env->quickHoldsTop = env->quickHolds;
+    env->error = 0;      //orErrorClear;
 }