FW: [MLton] Working: MLton/Win64 toolchain

[Nicolas Bertolotti]

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