[MLton-commit] r5112

[Vesa Karvonen]

Eliminated a couple of warnings.

----------------------------------------------------------------------

U   mlton/trunk/runtime/platform/mingw.c
U   mlton/trunk/runtime/platform/mingw.h

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/platform/mingw.c
===================================================================
--- mlton/trunk/runtime/platform/mingw.c	2007-02-02 16:42:21 UTC (rev 5111)
+++ mlton/trunk/runtime/platform/mingw.c	2007-02-02 16:45:13 UTC (rev 5112)
@@ -152,7 +152,7 @@
  *   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/getprocesstimes.asp
  *   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/getsystemtimeasfiletime.asp
  */
-int getrusage (int who, struct rusage *usage) {
+int getrusage (__attribute__ ((unused)) int who, struct rusage *usage) {
   FILETIME ct, et, kt, ut;
   LARGE_INTEGER li, lj;
   if (GetProcessTimes(GetCurrentProcess(), &ct, &et, &kt, &ut)) {
@@ -426,7 +426,7 @@
 
 __attribute__ ((noreturn))
 int setgroups (__attribute__ ((unused)) size_t size, 
-               __attribute__ ((unused)) gid_t *list) {
+               __attribute__ ((unused)) const gid_t *list) {
         die ("setgroups not implemented");
 }
 
@@ -911,7 +911,7 @@
 void closelog(void) {
 }
 
-void syslog(int priority, const char* fmt, const char* msg) {
+void syslog(int priority, __attribute__ ((unused)) const char* fmt, const char* msg) {
   static const char* severity[] = {
     "debug", 
     "informational", 
@@ -950,7 +950,7 @@
  * process.
  */
 
-void *dlopen(const char *filename, int flag_IGNORED) {
+void *dlopen(const char *filename, __attribute__ ((unused)) int flag_IGNORED) {
         if (!filename) {
                 if (!dl_main_module)
                         dl_main_module = GetModuleHandle(NULL);

Modified: mlton/trunk/runtime/platform/mingw.h
===================================================================
--- mlton/trunk/runtime/platform/mingw.h	2007-02-02 16:42:21 UTC (rev 5111)
+++ mlton/trunk/runtime/platform/mingw.h	2007-02-02 16:45:13 UTC (rev 5112)
@@ -270,7 +270,7 @@
 uid_t getuid (void);
 int setenv (const char *name, const char *value, int overwrite);
 int setgid (gid_t gid);
-int setgroups (size_t size, gid_t *list);
+int setgroups (size_t size, const gid_t *list);
 int setpgid (pid_t pid, pid_t pgid);
 pid_t setsid (void);
 int setuid (uid_t uid);
@@ -584,3 +584,12 @@
 void openlog(const char* ident, int logopt, int facility);
 void closelog(void);
 void syslog(int priority, const char* fmt, const char* msg);
+
+/* ------------------------------------------------- */
+/*                      libdl                        */
+/* ------------------------------------------------- */
+
+void *dlopen(const char *filename, int flag_IGNORED);
+const char *dlerror(void);
+void *dlsym(void *void_hmodule, const char *symbol);
+int dlclose(void *void_hmodule);