Changeset 144 for trunk/orca/unix/os.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/unix/os.c (modified) (6 diffs)

trunk/orca/unix/os.c

@@ -83 +83 @@
    change-dir
 */
-void orChangeDirNative( OValue* a1 )
+OR_NATIVE_PUB(orChangeDirNative )
 {
     int logic = 0;
@@ -97 +97 @@
    what-dir
 */
-void orWhatDirNative()
+OR_NATIVE_PUB( orWhatDirNative )
 {
     if( getcwd( orTmp, OR_TMP_SIZE ) )
@@ -121 +121 @@
   No error if directory exists.
 */
-void orMakeDirNative( OValue* a1 )
+OR_NATIVE_PUB( orMakeDirNative )
 {
     int err;
@@ -139 +139 @@
 #define REF_TIME    a1
 
-void orNowNative( OValue* a1 )
-{
-    OValue* res;
+OR_NATIVE_PUB( orNowNative )
+{
     struct timeval tp;
 
@@ -149 +148 @@
     //        sizeof(tp.tv_sec), sizeof(tp.tv_usec) );
 
-    res = orRESULT;
     if( orRefineSet( REF_TIME ) )
-        orSetTF( res, OT_TIME );
+        orSetTF( a1, OT_TIME );
     else
-        orSetTF( res, OT_DATE );
-
-    orSeconds(res) = tp.tv_sec + (tp.tv_usec * 0.000001);
+        orSetTF( a1, OT_DATE );
+
+    orSeconds(a1) = tp.tv_sec + (tp.tv_usec * 0.000001);
 }
 
@@ -162 +160 @@
   Sets result.
 */
-void orReadDir( const char* filename )
+void orReadDir( OValue* a1, const char* filename )
 {
     DIR* dir;