[pure-lang-svn] SF.net SVN: pure-lang:[548] pure/trunk

[<ag...@us...>]

Revision: 548
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=548&view=rev
Author:   agraef
Date:     2008-08-20 08:44:09 +0000 (Wed, 20 Aug 2008)

Log Message:
-----------
Windows compatibility fixes.

Modified Paths:
--------------
    pure/trunk/runtime.cc
    pure/trunk/runtime.h

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-08-20 08:13:06 UTC (rev 547)
+++ pure/trunk/runtime.cc	2008-08-20 08:44:09 UTC (rev 548)
@@ -2694,6 +2694,13 @@
 {
   return _pclose(stream);
 }
+
+extern "C"
+unsigned int sleep(unsigned int secs)
+{
+  Sleep(secs*1000);
+  return 0;
+}
 #endif
 
 /* Horrible kludge to get round, trunc and the inverse hyperbolic functions

Modified: pure/trunk/runtime.h
===================================================================
--- pure/trunk/runtime.h	2008-08-20 08:13:06 UTC (rev 547)
+++ pure/trunk/runtime.h	2008-08-20 08:44:09 UTC (rev 548)
@@ -582,9 +582,9 @@
 
 #ifdef __MINGW32__
 /* Windows compatibility. */
-
 FILE *popen(const char *command, const char *type);
 int pclose(FILE *stream);
+unsigned int sleep(unsigned int secs);
 #endif
 
 /* printf/scanf support. Since we don't support calling C vararg functions


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.