projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Document -ddump-rule-firings and -ddump-rule-rewrites
[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
..
bf243a2
100644
(file)
--- a/
docs/users_guide/win32-dlls.xml
+++ b/
docs/users_guide/win32-dlls.xml
@@
-427,7
+427,7
@@
foreign export stdcall adder :: Int -> Int -> IO Int
</para>
<programlisting>
// StartEnd.c
</para>
<programlisting>
// StartEnd.c
-#include <Rts.h>
+#include <Rts.h>
extern void __stginit_Adder(void);
extern void __stginit_Adder(void);
@@
-438,7
+438,7
@@
void HsStart()
// Initialize Haskell runtime
char** args = argv;
// Initialize Haskell runtime
char** args = argv;
- hs_init(&argc, &args);
+ hs_init(&argc, &args);
// Tell Haskell about all root modules
hs_add_root(__stginit_Adder);
// Tell Haskell about all root modules
hs_add_root(__stginit_Adder);
@@
-499,7
+499,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
+522,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
+547,8
@@
$ tester
12 + 5 = 17
</screen>
12 + 5 = 17
</screen>
+</sect3>
+
</sect2>
</sect1>
</sect2>
</sect1>