Changeset 144 for trunk/orca/win32

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/win32/os.c (modified) (4 diffs)

trunk/orca/win32/os.c

@@ -92 +92 @@
    change-dir
 */
-void orChangeDirNative( OValue* a1 )
+OR_NATIVE_PUB( orChangeDirNative )
 {
     int logic = 0;
@@ -106 +106 @@
    what-dir
 */
-void orWhatDirNative()
+OR_NATIVE_PUB( orWhatDirNative )
 {
     if( _getcwd( orTmp, OR_TMP_SIZE ) )
@@ -130 +130 @@
   No error if directory exists.
 */
-void orMakeDirNative( OValue* a1 )
+OR_NATIVE_PUB( orMakeDirNative )
 {
     int err;
@@ -161 +161 @@
 #define REF_TIME    a1
 
-void orNowNative( OValue* a1 )
-{
-    OValue* res;
+OR_NATIVE_PUB( orNowNative )
+{
     struct _timeb tb;
 
     _ftime( &tb );
 
-    res = orRESULT;
     if( orRefineSet( REF_TIME ) )
-        orSetTF( res, OT_TIME );
+        orSetTF( a1, OT_TIME );
     else
-        orSetTF( res, OT_DATE );
-    orSeconds(res) = tb.time + (tb.millitm * 0.001);
-}
-
-
-void orReadDir( const char* filename )
+        orSetTF( a1, OT_DATE );
+    orSeconds(a1) = tb.time + (tb.millitm * 0.001);
+}
+
+
+void orReadDir( OValue* a1, const char* filename )
 {
     char filespec[ _MAX_PATH ];