[project @ 2001-09-04 18:29:20 by ken]

[ghc-hetmet.git] / ghc / docs / users_guide / win32-dlls.sgml

diff --git a/ghc/docs/users_guide/win32-dlls.sgml b/ghc/docs/users_guide/win32-dlls.sgml
index fd096e5..488f5bd 100644 (file)
--- a/ghc/docs/users_guide/win32-dlls.sgml
+++ b/ghc/docs/users_guide/win32-dlls.sgml
@@ -238,7 +238,7 @@ RTS---a possible implementation is:
 #include <windows.h>
 #include <Rts.h>
 
-EXTFUN(__init_Adder);
+EXTFUN(__stginit_Adder);
 
 static char* args[] = { "ghcDll", NULL };
                        /* N.B. argv arrays must end with NULL */
@@ -252,7 +252,7 @@ DllMain
 {
   if (reason == DLL_PROCESS_ATTACH) {
       /* By now, the RTS DLL should have been hoisted in, but we need to start it up. */
-      startupHaskell(1, args, __init_Adder);
+      startupHaskell(1, args, __stginit_Adder);
       return TRUE;
   }
   return TRUE;