[project @ 1999-03-16 13:20:07 by simonm]

[ghc-hetmet.git] / ghc / interpreter / dynamic.c

diff --git a/ghc/interpreter/dynamic.c b/ghc/interpreter/dynamic.c
index f6d7fdd..57653d5 100644 (file)
--- a/ghc/interpreter/dynamic.c
+++ b/ghc/interpreter/dynamic.c
@@ -1,4 +1,4 @@
-/* -*- mode: hugs-c; -*- */
+
 /* --------------------------------------------------------------------------
  * Dynamic loading (of .dll or .so files) for Hugs
  *
@@ -7,8 +7,8 @@
  * Hugs version 1.4, December 1997
  *
  * $RCSfile: dynamic.c,v $
- * $Revision: 1.2 $
- * $Date: 1998/12/02 13:22:06 $
+ * $Revision: 1.4 $
+ * $Date: 1999/03/01 14:46:45 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -21,6 +21,7 @@
 #include <stdio.h>
 #include <dlfcn.h>
 
+#if 0 /* apparently unused */
 ObjectFile loadLibrary(fn)
 String fn; {
     return dlopen(fn,RTLD_NOW | RTLD_GLOBAL);
@@ -29,8 +30,9 @@ String fn; {
 void* lookupSymbol(file,symbol)
 ObjectFile file;
 String symbol; {
-    return dlsym(file,symbol)
+    return dlsym(file,symbol);
 }
+#endif
 
 void* getDLLSymbol(dll,symbol)  /* load dll and lookup symbol */
 String dll;