Changeset 144 for trunk/orca/qt

Timestamp:

05/11/06 14:23:03 (3 years ago)

Author:

krobillard

Message:

Native arguments are now kept on the stack until after the call and the
result is now always put into a1.

Location:

trunk/orca/qt

Files:

• main.cpp (modified) (2 diffs)
• qorca.cpp (modified) (3 diffs)

trunk/orca/qt/main.cpp

@@ -48 +48 @@
     {
         OIndex strN;
+        OValue* tos;
 
+        tos = orTOS;
         strN = orMakeCString( argv[1], -1 );
-        orResultFILE( strN );
+        orSetTF(tos, OT_FILE );
+        orSetSeries(tos, strN, 0 );
 
-        orDoNative( orRESULT );
+        orDoNative( tos );
         if( orErrorThrown )
         {
@@ -112 +115 @@
                 {
                     OValue* val;
-                    val = orRESULT;
+                    val = orTOS;
                     if( (val->type != OT_UNSET) &&
                         (val->type != OT_OBJECT) &&

trunk/orca/qt/qorca.cpp

@@ -689 +689 @@
         if( orErrorThrown->error.msg == qEnv.atom_exec_exit )
         {
-            orResultCopy( *(orErrorThrown + 1) );
+            orCopyV( orTOS, *(orErrorThrown + 1) );
             orErrorClear;
             return qEnv.atom_exec_exit;
@@ -695 +695 @@
         else if( orErrorThrown->error.msg == qEnv.atom_close )
         {
-            orResultCopy( *(orErrorThrown + 1) );
+            orCopyV( orTOS, *(orErrorThrown + 1) );
             orErrorClear;
             return qEnv.atom_close;
@@ -1272 +1272 @@
     {
         printf( "** qoInitEnv Error: " );
-        orPrintNative( orRESULT );
+        orPrintNative( orTOS );
     }