Changeset 27 for trunk/orca/qt/main.cpp

Timestamp:

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

Author:

krobillard

Message:

Added orResetEnv().

Files:

• trunk/orca/qt/main.cpp (modified) (2 diffs)

trunk/orca/qt/main.cpp

@@ -60 +60 @@
                 OPEN_CONSOLE
 
-                if( orErrorIsType(OR_ERROR_HALT) )
+                if( ! orErrorIsType(OR_ERROR_HALT) )
                 {
-                    orErrorClear;
-                    // Reset stack.
-                    orEnv->dataStack.used = 0;
-                    orEnv->callStack.used = 0;
+                    orResetEnv( &env );
                     goto halt;
                 }
@@ -111 +108 @@
                     if( ! orErrorIsType(OR_ERROR_HALT) )
                         orPrintNative( orErrorThrown );
-                    orErrorClear;
+                    orResetEnv( &env );
                 }
                 else