projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Preliminary monad-comprehension patch (Trac #4370)
[ghc-hetmet.git]
/
docs
/
users_guide
/
win32-dlls.xml
diff --git
a/docs/users_guide/win32-dlls.xml
b/docs/users_guide/win32-dlls.xml
index
eaa3d38
..
f00e1e2
100644
(file)
--- a/
docs/users_guide/win32-dlls.xml
+++ b/
docs/users_guide/win32-dlls.xml
@@
-427,9
+427,7
@@
foreign export stdcall adder :: Int -> Int -> IO Int
</para>
<programlisting>
// StartEnd.c
</para>
<programlisting>
// StartEnd.c
-#include <Rts.h>
-
-extern void __stginit_Adder(void);
+#include <Rts.h>
void HsStart()
{
void HsStart()
{
@@
-438,10
+436,7
@@
void HsStart()
// Initialize Haskell runtime
char** args = argv;
// Initialize Haskell runtime
char** args = argv;
- hs_init(&argc, &args);
-
- // Tell Haskell about all root modules
- hs_add_root(__stginit_Adder);
+ hs_init(&argc, &args);
}
void HsEnd()
}
void HsEnd()
@@
-499,7
+494,7
@@
HsStart
End Sub
Public Sub Test()
End Sub
Public Sub Test()
-MsgBox "12 + 5 = " & Adder(12, 5)
+MsgBox "12 + 5 = " & Adder(12, 5)
End Sub
</programlisting>
<para>
End Sub
</programlisting>
<para>
@@
-522,7
+517,7
@@
End Sub
// Tester.cpp
#include "HsFFI.h"
#include "Adder_stub.h"
// Tester.cpp
#include "HsFFI.h"
#include "Adder_stub.h"
-#include <stdio.h>
+#include <stdio.h>
extern "C" {
void HsStart();
extern "C" {
void HsStart();
@@
-547,6
+542,8
@@
$ tester
12 + 5 = 17
</screen>
12 + 5 = 17
</screen>
+</sect3>
+
</sect2>
</sect1>
</sect2>
</sect1>