summaryrefslogtreecommitdiff
path: root/lang/ghc6/files/patch-ghc__includes__RtsAPI.h
diff options
context:
space:
mode:
Diffstat (limited to 'lang/ghc6/files/patch-ghc__includes__RtsAPI.h')
-rw-r--r--lang/ghc6/files/patch-ghc__includes__RtsAPI.h21
1 files changed, 21 insertions, 0 deletions
diff --git a/lang/ghc6/files/patch-ghc__includes__RtsAPI.h b/lang/ghc6/files/patch-ghc__includes__RtsAPI.h
new file mode 100644
index 000000000000..f5a9cff55523
--- /dev/null
+++ b/lang/ghc6/files/patch-ghc__includes__RtsAPI.h
@@ -0,0 +1,21 @@
+*** ghc/includes/RtsAPI.h~ Thu Jun 27 16:38:58 2002
+--- ghc/includes/RtsAPI.h Fri Jul 19 11:19:38 2002
+***************
+*** 122,129 ****
+ These are used by foreign export and foreign import "wrapper" stubs.
+ ----------------------------------------------------------------------- */
+
+! extern DLL_IMPORT const StgClosure GHCziTopHandler_runIO_closure;
+! extern DLL_IMPORT const StgClosure GHCziTopHandler_runNonIO_closure;
+ #define runIO_closure (&GHCziTopHandler_runIO_closure)
+ #define runNonIO_closure (&GHCziTopHandler_runNonIO_closure)
+
+--- 122,129 ----
+ These are used by foreign export and foreign import "wrapper" stubs.
+ ----------------------------------------------------------------------- */
+
+! extern StgClosure GHCziTopHandler_runIO_closure;
+! extern StgClosure GHCziTopHandler_runNonIO_closure;
+ #define runIO_closure (&GHCziTopHandler_runIO_closure)
+ #define runNonIO_closure (&GHCziTopHandler_runNonIO_closure)
+