Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
12f7b865
Commit
12f7b865
authored
Oct 20, 2010
by
Simon Marlow
Browse files
fix markup
parent
529281f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
docs/users_guide/win32-dlls.xml
View file @
12f7b865
...
...
@@ -427,7 +427,7 @@ foreign export stdcall adder :: Int -> Int -> IO Int
</para>
<programlisting>
// StartEnd.c
#include
<
Rts.h
>
#include
<
Rts.h
>
extern void __stginit_Adder(void);
...
...
@@ -438,7 +438,7 @@ void HsStart()
// Initialize Haskell runtime
char** args = argv;
hs_init(
&
argc,
&args);
hs_init(
&
amp;
argc,
&
amp;
args);
// Tell Haskell about all root modules
hs_add_root(__stginit_Adder);
...
...
@@ -499,7 +499,7 @@ HsStart
End Sub
Public Sub Test()
MsgBox "12 + 5 = "
&
Adder(12, 5)
MsgBox "12 + 5 = "
&
amp;
Adder(12, 5)
End Sub
</programlisting>
<para>
...
...
@@ -522,7 +522,7 @@ End Sub
// Tester.cpp
#include "HsFFI.h"
#include "Adder_stub.h"
#include
<
stdio.h
>
#include
<
stdio.h
>
extern "C" {
void HsStart();
...
...
@@ -547,6 +547,8 @@ $ tester
12 + 5 = 17
</screen>
</sect3>
</sect2>
</sect1>
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment