Changeset 144 for trunk/orca/gl/main.c

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.

Files:

• trunk/orca/gl/main.c (modified) (2 diffs)

trunk/orca/gl/main.c

@@ -56 +56 @@
     {
         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 )
         {
@@ -123 +126 @@
                 {
                     OValue* val;
-                    val = orRESULT;
+                    val = orTOS;
                     if( (val->type != OT_UNSET) &&
                         (val->type != OT_OBJECT) &&