FW: [MLton] Working: MLton/Win64 toolchain
Nicolas Bertolotti
Nicolas.Bertolotti at mathworks.fr
Mon Aug 11 07:02:39 PDT 2008
Skipped content of type multipart/alternative-------------- next part --------------
#include <stdio.h>
struct my_struct {
void *p;
unsigned char buf[16384];
};
void func(void *p) { }
extern void func2(void ** pp)
{
struct my_struct s;
if (pp == NULL) {
func(&s.p);
} else {
s.p = *pp;
}
fprintf(stderr, "dummy2\n");
}
extern void ffi_func()
{
func2(NULL);
fprintf(stderr, "Test OK\n");
}
#ifdef C_MAIN
int main()
{
ffi_func();
return 0;
}
#endif
-------------- next part --------------
A non-text attachment was scrubbed...
Name: main.sml
Type: application/octet-stream
Size: 70 bytes
Desc: main.sml
Url : http://mlton.org/pipermail/mlton/attachments/20080811/aa63f74e/main.obj
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Makefile
Type: application/octet-stream
Size: 480 bytes
Desc: Makefile
Url : http://mlton.org/pipermail/mlton/attachments/20080811/aa63f74e/Makefile.obj
More information about the MLton
mailing list