daily pastebin goal
23%
SHARE
TWEET

Untitled

a guest Feb 16th, 2019 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. diff -Naur ocaml-4.00.1/otherlibs/labltk/support/cltkEvent.c ocaml-4.00.1-CAMLprim-void/otherlibs/labltk/support/cltkEvent.c
  2. --- ocaml-4.00.1/otherlibs/labltk/support/cltkEvent.c   2013-03-12 18:18:59.000000000 +0100
  3. +++ ocaml-4.00.1-CAMLprim-void/otherlibs/labltk/support/cltkEvent.c 2013-03-12 18:19:31.000000000 +0100
  4. @@ -22,7 +22,7 @@
  5.  #include <alloc.h>
  6.  #include "camltk.h"
  7.  
  8. -CAMLprim value camltk_tk_mainloop(void)
  9. +CAMLprim value camltk_tk_mainloop(value unit)
  10.  {
  11.    CheckInit();
  12.  
  13. diff -Naur ocaml-4.00.1/otherlibs/win32graph/draw.c ocaml-4.00.1-CAMLprim-void/otherlibs/win32graph/draw.c
  14. --- ocaml-4.00.1/otherlibs/win32graph/draw.c    2013-03-12 18:18:31.000000000 +0100
  15. +++ ocaml-4.00.1-CAMLprim-void/otherlibs/win32graph/draw.c  2013-03-12 18:19:18.000000000 +0100
  16. @@ -59,12 +59,12 @@
  17.          return Val_unit;
  18.  }
  19.  
  20. -CAMLprim value caml_gr_current_x(void)
  21. +CAMLprim value caml_gr_current_x(value unit)
  22.  {
  23.          return Val_int(grwindow.grx);
  24.  }
  25.  
  26. -CAMLprim value caml_gr_current_y(void)
  27. +CAMLprim value caml_gr_current_y(value unit)
  28.  {
  29.          return Val_int(grwindow.gry);
  30.  }
  31. @@ -313,7 +313,7 @@
  32.  
  33.  
  34.  
  35. -CAMLprim value caml_gr_get_mousex(void)
  36. +CAMLprim value caml_gr_get_mousex(value unit)
  37.  {
  38.          POINT pt;
  39.          GetCursorPos(&pt);
  40. @@ -321,7 +321,7 @@
  41.          return pt.x;
  42.  }
  43.  
  44. -CAMLprim value caml_gr_get_mousey(void)
  45. +CAMLprim value caml_gr_get_mousey(value unit)
  46.  {
  47.          POINT pt;
  48.          GetCursorPos(&pt);
  49. diff -Naur ocaml-4.00.1/otherlibs/win32graph/open.c ocaml-4.00.1-CAMLprim-void/otherlibs/win32graph/open.c
  50. --- ocaml-4.00.1/otherlibs/win32graph/open.c    2013-03-12 18:18:31.000000000 +0100
  51. +++ ocaml-4.00.1-CAMLprim-void/otherlibs/win32graph/open.c  2013-03-12 18:19:18.000000000 +0100
  52. @@ -39,7 +39,7 @@
  53.  
  54.  static char *szOcamlWindowClass = "OcamlWindowClass";
  55.  static BOOL gr_initialized = 0;
  56. -CAMLprim value caml_gr_clear_graph(void);
  57. +CAMLprim value caml_gr_clear_graph(value unit);
  58.  HANDLE hInst;
  59.  
  60.  HFONT CreationFont(char *name)
  61. @@ -268,7 +268,7 @@
  62.    return Val_unit;
  63.  }
  64.  
  65. -CAMLprim value caml_gr_close_graph(void)
  66. +CAMLprim value caml_gr_close_graph(value unit)
  67.  {
  68.          if (gr_initialized) {
  69.                  PostMessage(grwindow.hwnd, WM_CLOSE, 0, 0);
  70. @@ -277,7 +277,7 @@
  71.          return Val_unit;
  72.  }
  73.  
  74. -CAMLprim value caml_gr_clear_graph(void)
  75. +CAMLprim value caml_gr_clear_graph(value unit)
  76.  {
  77.          gr_check_open();
  78.          if(grremember_mode) {
  79. @@ -291,13 +291,13 @@
  80.          return Val_unit;
  81.  }
  82.  
  83. -CAMLprim value caml_gr_size_x(void)
  84. +CAMLprim value caml_gr_size_x(value unit)
  85.  {
  86.          gr_check_open();
  87.          return Val_int(grwindow.width);
  88.  }
  89.  
  90. -CAMLprim value caml_gr_size_y(void)
  91. +CAMLprim value caml_gr_size_y(value unit)
  92.  {
  93.          gr_check_open();
  94.          return Val_int(grwindow.height);
  95. @@ -312,7 +312,7 @@
  96.    return Val_unit;
  97.  }
  98.  
  99. -CAMLprim value caml_gr_synchronize(void)
  100. +CAMLprim value caml_gr_synchronize(value unit)
  101.  {
  102.          gr_check_open();
  103.          BitBlt(grwindow.gc,0,0,grwindow.width,grwindow.height,
  104. @@ -337,7 +337,7 @@
  105.          return Val_unit;
  106.  }
  107.  
  108. -CAMLprim value caml_gr_sigio_handler(void)
  109. +CAMLprim value caml_gr_sigio_handler(value unit)
  110.  {
  111.          return Val_unit;
  112.  }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top