The following actions will be performed:
  - install glpk 0.1.6

=-=- Gathering sources =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
[glpk: http] Command started
[glpk: http] Command started
[glpk.0.1.6] http://downloads.sourceforge.net/project/ocaml-glpk/ocaml-glpk/0.1.6/ocaml-glpk-0.1.6.tar.gz downloaded

=-=- Processing actions -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
[glpk: make byte] Command started
+ make "byte" "opt" (CWD=/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6)
- make -C src byte
- make[1]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- make[2]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- making ._bcdi/glpk.di from glpk.mli
- making ._d/glpk.d from glpk.ml
- ocamlc -c -cc "cc" -ccopt "-fPIC -Wall -ansi -DCAML_NAME_SPACE -g \
- 			-DPIC   \
- 			    -o glpk_stubs.o " glpk_stubs.c 
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:23:0,
-                  from glpk_stubs.c:23:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:137:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_uadd_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:148:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_usub_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:160:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_umul_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:8: error: unknown type name 'inline'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_unboxed'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:8: error: unknown type name 'inline'
-  static inline value caml_alloc_boxed (value arg) {
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_boxed'
-  static inline value caml_alloc_boxed (value arg) {
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:8: error: unknown type name 'inline'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_unboxed'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:8: error: unknown type name 'inline'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_boxed'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-                      ^
- glpk_stubs.c: In function 'raise_on_error':
- glpk_stubs.c:40:10: error: 'LPX_E_OK' undeclared (first use in this function)
-      case LPX_E_OK:
-           ^
- glpk_stubs.c:40:10: note: each undeclared identifier is reported only once for each function it appears in
- glpk_stubs.c:43:10: error: 'LPX_E_FAULT' undeclared (first use in this function)
-      case LPX_E_FAULT:
-           ^
- glpk_stubs.c:46:10: error: 'LPX_E_OBJLL' undeclared (first use in this function)
-      case LPX_E_OBJLL:
-           ^
- glpk_stubs.c:49:10: error: 'LPX_E_OBJUL' undeclared (first use in this function)
-      case LPX_E_OBJUL:
-           ^
- glpk_stubs.c:52:10: error: 'LPX_E_NOPFS' undeclared (first use in this function)
-      case LPX_E_NOPFS:
-           ^
- glpk_stubs.c:55:10: error: 'LPX_E_NODFS' undeclared (first use in this function)
-      case LPX_E_NODFS:
-           ^
- glpk_stubs.c:58:10: error: 'LPX_E_ITLIM' undeclared (first use in this function)
-      case LPX_E_ITLIM:
-           ^
- glpk_stubs.c:61:10: error: 'LPX_E_TMLIM' undeclared (first use in this function)
-      case LPX_E_TMLIM:
-           ^
- glpk_stubs.c:64:10: error: 'LPX_E_SING' undeclared (first use in this function)
-      case LPX_E_SING:
-           ^
- glpk_stubs.c:67:10: error: 'LPX_E_EMPTY' undeclared (first use in this function)
-      case LPX_E_EMPTY:
-           ^
- glpk_stubs.c:70:10: error: 'LPX_E_BADB' undeclared (first use in this function)
-      case LPX_E_BADB:
-           ^
- glpk_stubs.c:73:10: error: 'LPX_E_NOCONV' undeclared (first use in this function)
-      case LPX_E_NOCONV:
-           ^
- glpk_stubs.c: In function 'finalize_lpx':
- glpk_stubs.c:86:3: warning: implicit declaration of function 'lpx_delete_prob' [-Wimplicit-function-declaration]
-    lpx_delete_prob(Lpx_val(block));
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:99:22: error: unknown type name 'LPX'
-  static value new_blp(LPX* lp)
-                       ^
- glpk_stubs.c: In function 'ocaml_glpk_new_prob':
- glpk_stubs.c:108:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_create_prob();
-    ^
- glpk_stubs.c:108:13: warning: implicit declaration of function 'lpx_create_prob' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_create_prob();
-              ^
- glpk_stubs.c:108:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c:109:10: warning: implicit declaration of function 'new_blp' [-Wimplicit-function-declaration]
-    return new_blp(lp);
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_prob_name':
- glpk_stubs.c:114:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:115:3: warning: implicit declaration of function 'lpx_set_prob_name' [-Wimplicit-function-declaration]
-    lpx_set_prob_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_prob_name':
- glpk_stubs.c:122:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:123:31: warning: implicit declaration of function 'lpx_get_prob_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- glpk_stubs.c:123:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_name':
- glpk_stubs.c:128:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:129:3: warning: implicit declaration of function 'lpx_set_obj_name' [-Wimplicit-function-declaration]
-    lpx_set_obj_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_name':
- glpk_stubs.c:136:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:137:31: warning: implicit declaration of function 'lpx_get_obj_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- glpk_stubs.c:137:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:140:33: error: 'LPX_MIN' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                  ^
- glpk_stubs.c:140:42: error: 'LPX_MAX' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_direction':
- glpk_stubs.c:144:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:145:3: warning: implicit declaration of function 'lpx_set_obj_dir' [-Wimplicit-function-declaration]
-    lpx_set_obj_dir(lp, direction_table[Int_val(direction)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_direction':
- glpk_stubs.c:151:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:152:10: warning: implicit declaration of function 'lpx_get_obj_dir' [-Wimplicit-function-declaration]
-    switch(lpx_get_obj_dir(lp))
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_add_rows':
- glpk_stubs.c:167:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:168:3: warning: implicit declaration of function 'lpx_add_rows' [-Wimplicit-function-declaration]
-    lpx_add_rows(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_row_name':
- glpk_stubs.c:174:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:175:3: warning: implicit declaration of function 'lpx_set_row_name' [-Wimplicit-function-declaration]
-    lpx_set_row_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_name':
- glpk_stubs.c:182:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:183:31: warning: implicit declaration of function 'lpx_get_row_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:183:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:186:34: error: 'LPX_FR' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                   ^
- glpk_stubs.c:186:34: error: initializer element is not constant
- glpk_stubs.c:186:34: note: (near initialization for 'auxvartype_table[0]')
- glpk_stubs.c:186:42: error: 'LPX_LO' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                           ^
- glpk_stubs.c:186:42: error: initializer element is not constant
- glpk_stubs.c:186:42: note: (near initialization for 'auxvartype_table[1]')
- glpk_stubs.c:186:50: error: 'LPX_UP' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                   ^
- glpk_stubs.c:186:50: error: initializer element is not constant
- glpk_stubs.c:186:50: note: (near initialization for 'auxvartype_table[2]')
- glpk_stubs.c:186:58: error: 'LPX_DB' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                           ^
- glpk_stubs.c:186:58: error: initializer element is not constant
- glpk_stubs.c:186:58: note: (near initialization for 'auxvartype_table[3]')
- glpk_stubs.c:186:66: error: 'LPX_FX' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                                   ^
- glpk_stubs.c:186:66: error: initializer element is not constant
- glpk_stubs.c:186:66: note: (near initialization for 'auxvartype_table[4]')
- glpk_stubs.c: In function 'ocaml_glpk_set_row_bounds':
- glpk_stubs.c:190:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:191:3: warning: implicit declaration of function 'lpx_set_row_bnds' [-Wimplicit-function-declaration]
-    lpx_set_row_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_add_cols':
- glpk_stubs.c:197:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:198:3: warning: implicit declaration of function 'lpx_add_cols' [-Wimplicit-function-declaration]
-    lpx_add_cols(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_name':
- glpk_stubs.c:204:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:205:3: warning: implicit declaration of function 'lpx_set_col_name' [-Wimplicit-function-declaration]
-    lpx_set_col_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_name':
- glpk_stubs.c:212:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:213:31: warning: implicit declaration of function 'lpx_get_col_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:213:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_bounds':
- glpk_stubs.c:218:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:219:3: warning: implicit declaration of function 'lpx_set_col_bnds' [-Wimplicit-function-declaration]
-    lpx_set_col_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_coef':
- glpk_stubs.c:225:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:226:3: warning: implicit declaration of function 'lpx_set_obj_coef' [-Wimplicit-function-declaration]
-    lpx_set_obj_coef(lp, Int_val(n) + 1, Double_val(coef));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_matrix':
- glpk_stubs.c:232:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:265:3: warning: implicit declaration of function 'lpx_load_matrix' [-Wimplicit-function-declaration]
-    lpx_load_matrix(lp, n - 1, ia, ja, ar);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_sparse_matrix':
- glpk_stubs.c:276:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: In function 'ocaml_glpk_simplex':
- glpk_stubs.c:306:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:310:9: warning: implicit declaration of function 'lpx_simplex' [-Wimplicit-function-declaration]
-    ret = lpx_simplex(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_val':
- glpk_stubs.c:319:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:321:7: warning: implicit declaration of function 'lpx_get_class' [-Wimplicit-function-declaration]
-    if (lpx_get_class(lp) == LPX_MIP)
-        ^
- glpk_stubs.c:321:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:321:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:322:11: warning: implicit declaration of function 'lpx_mip_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_obj_val(lp);
-            ^
- glpk_stubs.c:324:11: warning: implicit declaration of function 'lpx_get_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_get_obj_val(lp);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_prim':
- glpk_stubs.c:330:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:333:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:333:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:334:11: warning: implicit declaration of function 'lpx_mip_col_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_col_val(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c:336:11: warning: implicit declaration of function 'lpx_get_col_prim' [-Wimplicit-function-declaration]
-      ans = lpx_get_col_prim(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_prim':
- glpk_stubs.c:342:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:343:27: warning: implicit declaration of function 'lpx_get_row_prim' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_prim(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_dual':
- glpk_stubs.c:348:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:349:27: warning: implicit declaration of function 'lpx_get_row_dual' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_dual(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_rows':
- glpk_stubs.c:354:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:355:18: warning: implicit declaration of function 'lpx_get_num_rows' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_rows(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:355:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_rows(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_cols':
- glpk_stubs.c:360:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:361:18: warning: implicit declaration of function 'lpx_get_num_cols' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_cols(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:361:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_cols(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_scale_problem':
- glpk_stubs.c:366:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:367:3: warning: implicit declaration of function 'lpx_scale_prob' [-Wimplicit-function-declaration]
-    lpx_scale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_unscale_problem':
- glpk_stubs.c:373:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:374:3: warning: implicit declaration of function 'lpx_unscale_prob' [-Wimplicit-function-declaration]
-    lpx_unscale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_interior':
- glpk_stubs.c:389:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:393:9: warning: implicit declaration of function 'lpx_interior' [-Wimplicit-function-declaration]
-    ret = lpx_interior(lp);
-          ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:400:29: error: 'LPX_LP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                              ^
- glpk_stubs.c:400:29: error: initializer element is not constant
- glpk_stubs.c:400:29: note: (near initialization for 'class_table[0]')
- glpk_stubs.c:400:37: error: 'LPX_MIP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                                      ^
- glpk_stubs.c:400:37: error: initializer element is not constant
- glpk_stubs.c:400:37: note: (near initialization for 'class_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_class':
- glpk_stubs.c:404:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:405:3: warning: implicit declaration of function 'lpx_set_class' [-Wimplicit-function-declaration]
-    lpx_set_class(lp, class_table[Int_val(class)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_class':
- glpk_stubs.c:411:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:425:28: error: 'LPX_CV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                             ^
- glpk_stubs.c:425:28: error: initializer element is not constant
- glpk_stubs.c:425:28: note: (near initialization for 'kind_table[0]')
- glpk_stubs.c:425:36: error: 'LPX_IV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                                     ^
- glpk_stubs.c:425:36: error: initializer element is not constant
- glpk_stubs.c:425:36: note: (near initialization for 'kind_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_col_kind':
- glpk_stubs.c:429:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:430:3: warning: implicit declaration of function 'lpx_set_col_kind' [-Wimplicit-function-declaration]
-    lpx_set_col_kind(lp, Int_val(n) + 1, kind_table[Int_val(kind)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_integer':
- glpk_stubs.c:437:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:441:9: warning: implicit declaration of function 'lpx_integer' [-Wimplicit-function-declaration]
-    ret = lpx_integer(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_intopt':
- glpk_stubs.c:451:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:455:9: warning: implicit declaration of function 'lpx_intopt' [-Wimplicit-function-declaration]
-    ret = lpx_intopt(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_warm_up':
- glpk_stubs.c:464:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:465:18: warning: implicit declaration of function 'lpx_warm_up' [-Wimplicit-function-declaration]
-    raise_on_error(lpx_warm_up(lp));
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_get_message_level':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:473:18: warning: implicit declaration of function 'lpx_get_int_parm' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_int_parm(lp, param)); \
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_message_level':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:478:3: warning: implicit declaration of function 'lpx_set_int_parm' [-Wimplicit-function-declaration]
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_scaling':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_scaling':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_dual_simplex':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_dual_simplex':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_pricing':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_pricing':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_relaxation':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:486:16: warning: implicit declaration of function 'lpx_get_real_parm' [-Wimplicit-function-declaration]
-    double ans = lpx_get_real_parm(lp, param); \
-                 ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_relaxation':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:492:3: warning: implicit declaration of function 'lpx_set_real_parm' [-Wimplicit-function-declaration]
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_solution_rounding':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_solution_rounding':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_limit':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_limit':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_count':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_count':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_time_limit':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_time_limit':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_branching_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_branching_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_backtracking_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_backtracking_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_presolver':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_presolver':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_read_cplex':
- glpk_stubs.c:515:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-    ^
- glpk_stubs.c:515:13: warning: implicit declaration of function 'lpx_read_cpxlp' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-              ^
- glpk_stubs.c:515:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c: In function 'ocaml_glpk_write_cplex':
- glpk_stubs.c:523:7: warning: implicit declaration of function 'lpx_write_cpxlp' [-Wimplicit-function-declaration]
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-        ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:89:33: warning: 'lpx_ops' defined but not used [-Wunused-variable]
-  static struct custom_operations lpx_ops =
-                                  ^
- OCamlMakefile:1013: recipe for target 'glpk_stubs.o' failed
- make[2]: *** [glpk_stubs.o] Error 2
- make[2]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- OCamlMakefile:716: recipe for target 'byte-code-library' failed
- make[1]: *** [byte-code-library] Error 2
- make[1]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- Makefile:13: recipe for target 'byte' failed
- make: *** [byte] Error 2
- make -C src byte
- make[1]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- make[2]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- making ._bcdi/glpk.di from glpk.mli
- making ._d/glpk.d from glpk.ml
- ocamlc -c -cc "cc" -ccopt "-fPIC -Wall -ansi -DCAML_NAME_SPACE -g \
- 			-DPIC   \
- 			    -o glpk_stubs.o " glpk_stubs.c 
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:23:0,
-                  from glpk_stubs.c:23:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:137:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_uadd_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:148:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_usub_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:160:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_umul_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:8: error: unknown type name 'inline'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_unboxed'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:8: error: unknown type name 'inline'
-  static inline value caml_alloc_boxed (value arg) {
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_boxed'
-  static inline value caml_alloc_boxed (value arg) {
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:8: error: unknown type name 'inline'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_unboxed'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:8: error: unknown type name 'inline'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_boxed'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-                      ^
- glpk_stubs.c: In function 'raise_on_error':
- glpk_stubs.c:40:10: error: 'LPX_E_OK' undeclared (first use in this function)
-      case LPX_E_OK:
-           ^
- glpk_stubs.c:40:10: note: each undeclared identifier is reported only once for each function it appears in
- glpk_stubs.c:43:10: error: 'LPX_E_FAULT' undeclared (first use in this function)
-      case LPX_E_FAULT:
-           ^
- glpk_stubs.c:46:10: error: 'LPX_E_OBJLL' undeclared (first use in this function)
-      case LPX_E_OBJLL:
-           ^
- glpk_stubs.c:49:10: error: 'LPX_E_OBJUL' undeclared (first use in this function)
-      case LPX_E_OBJUL:
-           ^
- glpk_stubs.c:52:10: error: 'LPX_E_NOPFS' undeclared (first use in this function)
-      case LPX_E_NOPFS:
-           ^
- glpk_stubs.c:55:10: error: 'LPX_E_NODFS' undeclared (first use in this function)
-      case LPX_E_NODFS:
-           ^
- glpk_stubs.c:58:10: error: 'LPX_E_ITLIM' undeclared (first use in this function)
-      case LPX_E_ITLIM:
-           ^
- glpk_stubs.c:61:10: error: 'LPX_E_TMLIM' undeclared (first use in this function)
-      case LPX_E_TMLIM:
-           ^
- glpk_stubs.c:64:10: error: 'LPX_E_SING' undeclared (first use in this function)
-      case LPX_E_SING:
-           ^
- glpk_stubs.c:67:10: error: 'LPX_E_EMPTY' undeclared (first use in this function)
-      case LPX_E_EMPTY:
-           ^
- glpk_stubs.c:70:10: error: 'LPX_E_BADB' undeclared (first use in this function)
-      case LPX_E_BADB:
-           ^
- glpk_stubs.c:73:10: error: 'LPX_E_NOCONV' undeclared (first use in this function)
-      case LPX_E_NOCONV:
-           ^
- glpk_stubs.c: In function 'finalize_lpx':
- glpk_stubs.c:86:3: warning: implicit declaration of function 'lpx_delete_prob' [-Wimplicit-function-declaration]
-    lpx_delete_prob(Lpx_val(block));
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:99:22: error: unknown type name 'LPX'
-  static value new_blp(LPX* lp)
-                       ^
- glpk_stubs.c: In function 'ocaml_glpk_new_prob':
- glpk_stubs.c:108:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_create_prob();
-    ^
- glpk_stubs.c:108:13: warning: implicit declaration of function 'lpx_create_prob' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_create_prob();
-              ^
- glpk_stubs.c:108:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c:109:10: warning: implicit declaration of function 'new_blp' [-Wimplicit-function-declaration]
-    return new_blp(lp);
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_prob_name':
- glpk_stubs.c:114:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:115:3: warning: implicit declaration of function 'lpx_set_prob_name' [-Wimplicit-function-declaration]
-    lpx_set_prob_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_prob_name':
- glpk_stubs.c:122:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:123:31: warning: implicit declaration of function 'lpx_get_prob_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- glpk_stubs.c:123:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_name':
- glpk_stubs.c:128:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:129:3: warning: implicit declaration of function 'lpx_set_obj_name' [-Wimplicit-function-declaration]
-    lpx_set_obj_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_name':
- glpk_stubs.c:136:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:137:31: warning: implicit declaration of function 'lpx_get_obj_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- glpk_stubs.c:137:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:140:33: error: 'LPX_MIN' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                  ^
- glpk_stubs.c:140:42: error: 'LPX_MAX' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_direction':
- glpk_stubs.c:144:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:145:3: warning: implicit declaration of function 'lpx_set_obj_dir' [-Wimplicit-function-declaration]
-    lpx_set_obj_dir(lp, direction_table[Int_val(direction)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_direction':
- glpk_stubs.c:151:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:152:10: warning: implicit declaration of function 'lpx_get_obj_dir' [-Wimplicit-function-declaration]
-    switch(lpx_get_obj_dir(lp))
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_add_rows':
- glpk_stubs.c:167:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:168:3: warning: implicit declaration of function 'lpx_add_rows' [-Wimplicit-function-declaration]
-    lpx_add_rows(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_row_name':
- glpk_stubs.c:174:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:175:3: warning: implicit declaration of function 'lpx_set_row_name' [-Wimplicit-function-declaration]
-    lpx_set_row_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_name':
- glpk_stubs.c:182:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:183:31: warning: implicit declaration of function 'lpx_get_row_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:183:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:186:34: error: 'LPX_FR' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                   ^
- glpk_stubs.c:186:34: error: initializer element is not constant
- glpk_stubs.c:186:34: note: (near initialization for 'auxvartype_table[0]')
- glpk_stubs.c:186:42: error: 'LPX_LO' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                           ^
- glpk_stubs.c:186:42: error: initializer element is not constant
- glpk_stubs.c:186:42: note: (near initialization for 'auxvartype_table[1]')
- glpk_stubs.c:186:50: error: 'LPX_UP' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                   ^
- glpk_stubs.c:186:50: error: initializer element is not constant
- glpk_stubs.c:186:50: note: (near initialization for 'auxvartype_table[2]')
- glpk_stubs.c:186:58: error: 'LPX_DB' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                           ^
- glpk_stubs.c:186:58: error: initializer element is not constant
- glpk_stubs.c:186:58: note: (near initialization for 'auxvartype_table[3]')
- glpk_stubs.c:186:66: error: 'LPX_FX' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                                   ^
- glpk_stubs.c:186:66: error: initializer element is not constant
- glpk_stubs.c:186:66: note: (near initialization for 'auxvartype_table[4]')
- glpk_stubs.c: In function 'ocaml_glpk_set_row_bounds':
- glpk_stubs.c:190:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:191:3: warning: implicit declaration of function 'lpx_set_row_bnds' [-Wimplicit-function-declaration]
-    lpx_set_row_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_add_cols':
- glpk_stubs.c:197:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:198:3: warning: implicit declaration of function 'lpx_add_cols' [-Wimplicit-function-declaration]
-    lpx_add_cols(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_name':
- glpk_stubs.c:204:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:205:3: warning: implicit declaration of function 'lpx_set_col_name' [-Wimplicit-function-declaration]
-    lpx_set_col_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_name':
- glpk_stubs.c:212:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:213:31: warning: implicit declaration of function 'lpx_get_col_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:213:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_bounds':
- glpk_stubs.c:218:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:219:3: warning: implicit declaration of function 'lpx_set_col_bnds' [-Wimplicit-function-declaration]
-    lpx_set_col_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_coef':
- glpk_stubs.c:225:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:226:3: warning: implicit declaration of function 'lpx_set_obj_coef' [-Wimplicit-function-declaration]
-    lpx_set_obj_coef(lp, Int_val(n) + 1, Double_val(coef));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_matrix':
- glpk_stubs.c:232:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:265:3: warning: implicit declaration of function 'lpx_load_matrix' [-Wimplicit-function-declaration]
-    lpx_load_matrix(lp, n - 1, ia, ja, ar);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_sparse_matrix':
- glpk_stubs.c:276:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: In function 'ocaml_glpk_simplex':
- glpk_stubs.c:306:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:310:9: warning: implicit declaration of function 'lpx_simplex' [-Wimplicit-function-declaration]
-    ret = lpx_simplex(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_val':
- glpk_stubs.c:319:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:321:7: warning: implicit declaration of function 'lpx_get_class' [-Wimplicit-function-declaration]
-    if (lpx_get_class(lp) == LPX_MIP)
-        ^
- glpk_stubs.c:321:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:321:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:322:11: warning: implicit declaration of function 'lpx_mip_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_obj_val(lp);
-            ^
- glpk_stubs.c:324:11: warning: implicit declaration of function 'lpx_get_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_get_obj_val(lp);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_prim':
- glpk_stubs.c:330:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:333:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:333:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:334:11: warning: implicit declaration of function 'lpx_mip_col_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_col_val(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c:336:11: warning: implicit declaration of function 'lpx_get_col_prim' [-Wimplicit-function-declaration]
-      ans = lpx_get_col_prim(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_prim':
- glpk_stubs.c:342:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:343:27: warning: implicit declaration of function 'lpx_get_row_prim' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_prim(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_dual':
- glpk_stubs.c:348:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:349:27: warning: implicit declaration of function 'lpx_get_row_dual' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_dual(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_rows':
- glpk_stubs.c:354:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:355:18: warning: implicit declaration of function 'lpx_get_num_rows' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_rows(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:355:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_rows(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_cols':
- glpk_stubs.c:360:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:361:18: warning: implicit declaration of function 'lpx_get_num_cols' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_cols(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:361:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_cols(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_scale_problem':
- glpk_stubs.c:366:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:367:3: warning: implicit declaration of function 'lpx_scale_prob' [-Wimplicit-function-declaration]
-    lpx_scale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_unscale_problem':
- glpk_stubs.c:373:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:374:3: warning: implicit declaration of function 'lpx_unscale_prob' [-Wimplicit-function-declaration]
-    lpx_unscale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_interior':
- glpk_stubs.c:389:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:393:9: warning: implicit declaration of function 'lpx_interior' [-Wimplicit-function-declaration]
-    ret = lpx_interior(lp);
-          ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:400:29: error: 'LPX_LP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                              ^
- glpk_stubs.c:400:29: error: initializer element is not constant
- glpk_stubs.c:400:29: note: (near initialization for 'class_table[0]')
- glpk_stubs.c:400:37: error: 'LPX_MIP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                                      ^
- glpk_stubs.c:400:37: error: initializer element is not constant
- glpk_stubs.c:400:37: note: (near initialization for 'class_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_class':
- glpk_stubs.c:404:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:405:3: warning: implicit declaration of function 'lpx_set_class' [-Wimplicit-function-declaration]
-    lpx_set_class(lp, class_table[Int_val(class)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_class':
- glpk_stubs.c:411:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:425:28: error: 'LPX_CV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                             ^
- glpk_stubs.c:425:28: error: initializer element is not constant
- glpk_stubs.c:425:28: note: (near initialization for 'kind_table[0]')
- glpk_stubs.c:425:36: error: 'LPX_IV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                                     ^
- glpk_stubs.c:425:36: error: initializer element is not constant
- glpk_stubs.c:425:36: note: (near initialization for 'kind_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_col_kind':
- glpk_stubs.c:429:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:430:3: warning: implicit declaration of function 'lpx_set_col_kind' [-Wimplicit-function-declaration]
-    lpx_set_col_kind(lp, Int_val(n) + 1, kind_table[Int_val(kind)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_integer':
- glpk_stubs.c:437:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:441:9: warning: implicit declaration of function 'lpx_integer' [-Wimplicit-function-declaration]
-    ret = lpx_integer(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_intopt':
- glpk_stubs.c:451:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:455:9: warning: implicit declaration of function 'lpx_intopt' [-Wimplicit-function-declaration]
-    ret = lpx_intopt(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_warm_up':
- glpk_stubs.c:464:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:465:18: warning: implicit declaration of function 'lpx_warm_up' [-Wimplicit-function-declaration]
-    raise_on_error(lpx_warm_up(lp));
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_get_message_level':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:473:18: warning: implicit declaration of function 'lpx_get_int_parm' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_int_parm(lp, param)); \
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_message_level':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:478:3: warning: implicit declaration of function 'lpx_set_int_parm' [-Wimplicit-function-declaration]
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_scaling':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_scaling':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_dual_simplex':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_dual_simplex':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_pricing':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_pricing':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_relaxation':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:486:16: warning: implicit declaration of function 'lpx_get_real_parm' [-Wimplicit-function-declaration]
-    double ans = lpx_get_real_parm(lp, param); \
-                 ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_relaxation':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:492:3: warning: implicit declaration of function 'lpx_set_real_parm' [-Wimplicit-function-declaration]
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_solution_rounding':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_solution_rounding':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_limit':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_limit':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_count':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_count':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_time_limit':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_time_limit':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_branching_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_branching_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_backtracking_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_backtracking_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_presolver':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_presolver':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_read_cplex':
- glpk_stubs.c:515:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-    ^
- glpk_stubs.c:515:13: warning: implicit declaration of function 'lpx_read_cpxlp' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-              ^
- glpk_stubs.c:515:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c: In function 'ocaml_glpk_write_cplex':
- glpk_stubs.c:523:7: warning: implicit declaration of function 'lpx_write_cpxlp' [-Wimplicit-function-declaration]
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-        ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:89:33: warning: 'lpx_ops' defined but not used [-Wunused-variable]
-  static struct custom_operations lpx_ops =
-                                  ^
- OCamlMakefile:1013: recipe for target 'glpk_stubs.o' failed
- make[2]: *** [glpk_stubs.o] Error 2
- make[2]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- OCamlMakefile:716: recipe for target 'byte-code-library' failed
- make[1]: *** [byte-code-library] Error 2
- make[1]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- Makefile:13: recipe for target 'byte' failed
- make: *** [byte] Error 2
[ERROR] The compilation of glpk failed at "make byte opt".
[glpk: ocamlfind remove] Command started
+ ocamlfind "remove" "glpk" (CWD=/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6)
- make -C src byte
- make[1]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- make[2]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- making ._bcdi/glpk.di from glpk.mli
- making ._d/glpk.d from glpk.ml
- ocamlc -c -cc "cc" -ccopt "-fPIC -Wall -ansi -DCAML_NAME_SPACE -g \
- 			-DPIC   \
- 			    -o glpk_stubs.o " glpk_stubs.c 
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:23:0,
-                  from glpk_stubs.c:23:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:137:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_uadd_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:148:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_usub_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:160:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_umul_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:8: error: unknown type name 'inline'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_unboxed'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:8: error: unknown type name 'inline'
-  static inline value caml_alloc_boxed (value arg) {
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_boxed'
-  static inline value caml_alloc_boxed (value arg) {
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:8: error: unknown type name 'inline'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_unboxed'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:8: error: unknown type name 'inline'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_boxed'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-                      ^
- glpk_stubs.c: In function 'raise_on_error':
- glpk_stubs.c:40:10: error: 'LPX_E_OK' undeclared (first use in this function)
-      case LPX_E_OK:
-           ^
- glpk_stubs.c:40:10: note: each undeclared identifier is reported only once for each function it appears in
- glpk_stubs.c:43:10: error: 'LPX_E_FAULT' undeclared (first use in this function)
-      case LPX_E_FAULT:
-           ^
- glpk_stubs.c:46:10: error: 'LPX_E_OBJLL' undeclared (first use in this function)
-      case LPX_E_OBJLL:
-           ^
- glpk_stubs.c:49:10: error: 'LPX_E_OBJUL' undeclared (first use in this function)
-      case LPX_E_OBJUL:
-           ^
- glpk_stubs.c:52:10: error: 'LPX_E_NOPFS' undeclared (first use in this function)
-      case LPX_E_NOPFS:
-           ^
- glpk_stubs.c:55:10: error: 'LPX_E_NODFS' undeclared (first use in this function)
-      case LPX_E_NODFS:
-           ^
- glpk_stubs.c:58:10: error: 'LPX_E_ITLIM' undeclared (first use in this function)
-      case LPX_E_ITLIM:
-           ^
- glpk_stubs.c:61:10: error: 'LPX_E_TMLIM' undeclared (first use in this function)
-      case LPX_E_TMLIM:
-           ^
- glpk_stubs.c:64:10: error: 'LPX_E_SING' undeclared (first use in this function)
-      case LPX_E_SING:
-           ^
- glpk_stubs.c:67:10: error: 'LPX_E_EMPTY' undeclared (first use in this function)
-      case LPX_E_EMPTY:
-           ^
- glpk_stubs.c:70:10: error: 'LPX_E_BADB' undeclared (first use in this function)
-      case LPX_E_BADB:
-           ^
- glpk_stubs.c:73:10: error: 'LPX_E_NOCONV' undeclared (first use in this function)
-      case LPX_E_NOCONV:
-           ^
- glpk_stubs.c: In function 'finalize_lpx':
- glpk_stubs.c:86:3: warning: implicit declaration of function 'lpx_delete_prob' [-Wimplicit-function-declaration]
-    lpx_delete_prob(Lpx_val(block));
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:99:22: error: unknown type name 'LPX'
-  static value new_blp(LPX* lp)
-                       ^
- glpk_stubs.c: In function 'ocaml_glpk_new_prob':
- glpk_stubs.c:108:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_create_prob();
-    ^
- glpk_stubs.c:108:13: warning: implicit declaration of function 'lpx_create_prob' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_create_prob();
-              ^
- glpk_stubs.c:108:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c:109:10: warning: implicit declaration of function 'new_blp' [-Wimplicit-function-declaration]
-    return new_blp(lp);
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_prob_name':
- glpk_stubs.c:114:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:115:3: warning: implicit declaration of function 'lpx_set_prob_name' [-Wimplicit-function-declaration]
-    lpx_set_prob_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_prob_name':
- glpk_stubs.c:122:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:123:31: warning: implicit declaration of function 'lpx_get_prob_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- glpk_stubs.c:123:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_name':
- glpk_stubs.c:128:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:129:3: warning: implicit declaration of function 'lpx_set_obj_name' [-Wimplicit-function-declaration]
-    lpx_set_obj_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_name':
- glpk_stubs.c:136:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:137:31: warning: implicit declaration of function 'lpx_get_obj_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- glpk_stubs.c:137:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:140:33: error: 'LPX_MIN' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                  ^
- glpk_stubs.c:140:42: error: 'LPX_MAX' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_direction':
- glpk_stubs.c:144:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:145:3: warning: implicit declaration of function 'lpx_set_obj_dir' [-Wimplicit-function-declaration]
-    lpx_set_obj_dir(lp, direction_table[Int_val(direction)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_direction':
- glpk_stubs.c:151:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:152:10: warning: implicit declaration of function 'lpx_get_obj_dir' [-Wimplicit-function-declaration]
-    switch(lpx_get_obj_dir(lp))
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_add_rows':
- glpk_stubs.c:167:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:168:3: warning: implicit declaration of function 'lpx_add_rows' [-Wimplicit-function-declaration]
-    lpx_add_rows(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_row_name':
- glpk_stubs.c:174:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:175:3: warning: implicit declaration of function 'lpx_set_row_name' [-Wimplicit-function-declaration]
-    lpx_set_row_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_name':
- glpk_stubs.c:182:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:183:31: warning: implicit declaration of function 'lpx_get_row_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:183:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:186:34: error: 'LPX_FR' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                   ^
- glpk_stubs.c:186:34: error: initializer element is not constant
- glpk_stubs.c:186:34: note: (near initialization for 'auxvartype_table[0]')
- glpk_stubs.c:186:42: error: 'LPX_LO' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                           ^
- glpk_stubs.c:186:42: error: initializer element is not constant
- glpk_stubs.c:186:42: note: (near initialization for 'auxvartype_table[1]')
- glpk_stubs.c:186:50: error: 'LPX_UP' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                   ^
- glpk_stubs.c:186:50: error: initializer element is not constant
- glpk_stubs.c:186:50: note: (near initialization for 'auxvartype_table[2]')
- glpk_stubs.c:186:58: error: 'LPX_DB' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                           ^
- glpk_stubs.c:186:58: error: initializer element is not constant
- glpk_stubs.c:186:58: note: (near initialization for 'auxvartype_table[3]')
- glpk_stubs.c:186:66: error: 'LPX_FX' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                                   ^
- glpk_stubs.c:186:66: error: initializer element is not constant
- glpk_stubs.c:186:66: note: (near initialization for 'auxvartype_table[4]')
- glpk_stubs.c: In function 'ocaml_glpk_set_row_bounds':
- glpk_stubs.c:190:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:191:3: warning: implicit declaration of function 'lpx_set_row_bnds' [-Wimplicit-function-declaration]
-    lpx_set_row_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_add_cols':
- glpk_stubs.c:197:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:198:3: warning: implicit declaration of function 'lpx_add_cols' [-Wimplicit-function-declaration]
-    lpx_add_cols(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_name':
- glpk_stubs.c:204:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:205:3: warning: implicit declaration of function 'lpx_set_col_name' [-Wimplicit-function-declaration]
-    lpx_set_col_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_name':
- glpk_stubs.c:212:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:213:31: warning: implicit declaration of function 'lpx_get_col_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:213:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_bounds':
- glpk_stubs.c:218:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:219:3: warning: implicit declaration of function 'lpx_set_col_bnds' [-Wimplicit-function-declaration]
-    lpx_set_col_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_coef':
- glpk_stubs.c:225:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:226:3: warning: implicit declaration of function 'lpx_set_obj_coef' [-Wimplicit-function-declaration]
-    lpx_set_obj_coef(lp, Int_val(n) + 1, Double_val(coef));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_matrix':
- glpk_stubs.c:232:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:265:3: warning: implicit declaration of function 'lpx_load_matrix' [-Wimplicit-function-declaration]
-    lpx_load_matrix(lp, n - 1, ia, ja, ar);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_sparse_matrix':
- glpk_stubs.c:276:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: In function 'ocaml_glpk_simplex':
- glpk_stubs.c:306:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:310:9: warning: implicit declaration of function 'lpx_simplex' [-Wimplicit-function-declaration]
-    ret = lpx_simplex(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_val':
- glpk_stubs.c:319:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:321:7: warning: implicit declaration of function 'lpx_get_class' [-Wimplicit-function-declaration]
-    if (lpx_get_class(lp) == LPX_MIP)
-        ^
- glpk_stubs.c:321:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:321:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:322:11: warning: implicit declaration of function 'lpx_mip_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_obj_val(lp);
-            ^
- glpk_stubs.c:324:11: warning: implicit declaration of function 'lpx_get_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_get_obj_val(lp);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_prim':
- glpk_stubs.c:330:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:333:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:333:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:334:11: warning: implicit declaration of function 'lpx_mip_col_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_col_val(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c:336:11: warning: implicit declaration of function 'lpx_get_col_prim' [-Wimplicit-function-declaration]
-      ans = lpx_get_col_prim(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_prim':
- glpk_stubs.c:342:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:343:27: warning: implicit declaration of function 'lpx_get_row_prim' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_prim(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_dual':
- glpk_stubs.c:348:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:349:27: warning: implicit declaration of function 'lpx_get_row_dual' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_dual(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_rows':
- glpk_stubs.c:354:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:355:18: warning: implicit declaration of function 'lpx_get_num_rows' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_rows(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:355:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_rows(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_cols':
- glpk_stubs.c:360:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:361:18: warning: implicit declaration of function 'lpx_get_num_cols' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_cols(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:361:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_cols(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_scale_problem':
- glpk_stubs.c:366:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:367:3: warning: implicit declaration of function 'lpx_scale_prob' [-Wimplicit-function-declaration]
-    lpx_scale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_unscale_problem':
- glpk_stubs.c:373:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:374:3: warning: implicit declaration of function 'lpx_unscale_prob' [-Wimplicit-function-declaration]
-    lpx_unscale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_interior':
- glpk_stubs.c:389:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:393:9: warning: implicit declaration of function 'lpx_interior' [-Wimplicit-function-declaration]
-    ret = lpx_interior(lp);
-          ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:400:29: error: 'LPX_LP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                              ^
- glpk_stubs.c:400:29: error: initializer element is not constant
- glpk_stubs.c:400:29: note: (near initialization for 'class_table[0]')
- glpk_stubs.c:400:37: error: 'LPX_MIP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                                      ^
- glpk_stubs.c:400:37: error: initializer element is not constant
- glpk_stubs.c:400:37: note: (near initialization for 'class_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_class':
- glpk_stubs.c:404:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:405:3: warning: implicit declaration of function 'lpx_set_class' [-Wimplicit-function-declaration]
-    lpx_set_class(lp, class_table[Int_val(class)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_class':
- glpk_stubs.c:411:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:425:28: error: 'LPX_CV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                             ^
- glpk_stubs.c:425:28: error: initializer element is not constant
- glpk_stubs.c:425:28: note: (near initialization for 'kind_table[0]')
- glpk_stubs.c:425:36: error: 'LPX_IV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                                     ^
- glpk_stubs.c:425:36: error: initializer element is not constant
- glpk_stubs.c:425:36: note: (near initialization for 'kind_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_col_kind':
- glpk_stubs.c:429:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:430:3: warning: implicit declaration of function 'lpx_set_col_kind' [-Wimplicit-function-declaration]
-    lpx_set_col_kind(lp, Int_val(n) + 1, kind_table[Int_val(kind)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_integer':
- glpk_stubs.c:437:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:441:9: warning: implicit declaration of function 'lpx_integer' [-Wimplicit-function-declaration]
-    ret = lpx_integer(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_intopt':
- glpk_stubs.c:451:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:455:9: warning: implicit declaration of function 'lpx_intopt' [-Wimplicit-function-declaration]
-    ret = lpx_intopt(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_warm_up':
- glpk_stubs.c:464:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:465:18: warning: implicit declaration of function 'lpx_warm_up' [-Wimplicit-function-declaration]
-    raise_on_error(lpx_warm_up(lp));
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_get_message_level':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:473:18: warning: implicit declaration of function 'lpx_get_int_parm' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_int_parm(lp, param)); \
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_message_level':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:478:3: warning: implicit declaration of function 'lpx_set_int_parm' [-Wimplicit-function-declaration]
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_scaling':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_scaling':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_dual_simplex':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_dual_simplex':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_pricing':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_pricing':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_relaxation':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:486:16: warning: implicit declaration of function 'lpx_get_real_parm' [-Wimplicit-function-declaration]
-    double ans = lpx_get_real_parm(lp, param); \
-                 ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_relaxation':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:492:3: warning: implicit declaration of function 'lpx_set_real_parm' [-Wimplicit-function-declaration]
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_solution_rounding':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_solution_rounding':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_limit':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_limit':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_count':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_count':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_time_limit':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_time_limit':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_branching_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_branching_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_backtracking_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_backtracking_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_presolver':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_presolver':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_read_cplex':
- glpk_stubs.c:515:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-    ^
- glpk_stubs.c:515:13: warning: implicit declaration of function 'lpx_read_cpxlp' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-              ^
- glpk_stubs.c:515:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c: In function 'ocaml_glpk_write_cplex':
- glpk_stubs.c:523:7: warning: implicit declaration of function 'lpx_write_cpxlp' [-Wimplicit-function-declaration]
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-        ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:89:33: warning: 'lpx_ops' defined but not used [-Wunused-variable]
-  static struct custom_operations lpx_ops =
-                                  ^
- OCamlMakefile:1013: recipe for target 'glpk_stubs.o' failed
- make[2]: *** [glpk_stubs.o] Error 2
- make[2]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- OCamlMakefile:716: recipe for target 'byte-code-library' failed
- make[1]: *** [byte-code-library] Error 2
- make[1]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- Makefile:13: recipe for target 'byte' failed
- make: *** [byte] Error 2
- ocamlfind: [WARNING] No such file: /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/glpk/META
- make -C src byte
- make[1]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- make[2]: Entering directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- making ._bcdi/glpk.di from glpk.mli
- making ._d/glpk.d from glpk.ml
- ocamlc -c -cc "cc" -ccopt "-fPIC -Wall -ansi -DCAML_NAME_SPACE -g \
- 			-DPIC   \
- 			    -o glpk_stubs.o " glpk_stubs.c 
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:23:0,
-                  from glpk_stubs.c:23:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:137:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_uadd_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:148:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_usub_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/misc.h:160:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'int'
-  static inline int caml_umul_overflow(uintnat a, uintnat b, uintnat * res)
-                ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:8: error: unknown type name 'inline'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:64:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_unboxed'
-  static inline value caml_alloc_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:8: error: unknown type name 'inline'
-  static inline value caml_alloc_boxed (value arg) {
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:65:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_alloc_boxed'
-  static inline value caml_alloc_boxed (value arg) {
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:8: error: unknown type name 'inline'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:70:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_unboxed'
-  static inline value caml_field_unboxed (value arg) { return arg; }
-                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:8: error: unknown type name 'inline'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:71:21: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'caml_field_boxed'
-  static inline value caml_field_boxed (value arg) { return Field (arg, 0); }
-                      ^
- glpk_stubs.c: In function 'raise_on_error':
- glpk_stubs.c:40:10: error: 'LPX_E_OK' undeclared (first use in this function)
-      case LPX_E_OK:
-           ^
- glpk_stubs.c:40:10: note: each undeclared identifier is reported only once for each function it appears in
- glpk_stubs.c:43:10: error: 'LPX_E_FAULT' undeclared (first use in this function)
-      case LPX_E_FAULT:
-           ^
- glpk_stubs.c:46:10: error: 'LPX_E_OBJLL' undeclared (first use in this function)
-      case LPX_E_OBJLL:
-           ^
- glpk_stubs.c:49:10: error: 'LPX_E_OBJUL' undeclared (first use in this function)
-      case LPX_E_OBJUL:
-           ^
- glpk_stubs.c:52:10: error: 'LPX_E_NOPFS' undeclared (first use in this function)
-      case LPX_E_NOPFS:
-           ^
- glpk_stubs.c:55:10: error: 'LPX_E_NODFS' undeclared (first use in this function)
-      case LPX_E_NODFS:
-           ^
- glpk_stubs.c:58:10: error: 'LPX_E_ITLIM' undeclared (first use in this function)
-      case LPX_E_ITLIM:
-           ^
- glpk_stubs.c:61:10: error: 'LPX_E_TMLIM' undeclared (first use in this function)
-      case LPX_E_TMLIM:
-           ^
- glpk_stubs.c:64:10: error: 'LPX_E_SING' undeclared (first use in this function)
-      case LPX_E_SING:
-           ^
- glpk_stubs.c:67:10: error: 'LPX_E_EMPTY' undeclared (first use in this function)
-      case LPX_E_EMPTY:
-           ^
- glpk_stubs.c:70:10: error: 'LPX_E_BADB' undeclared (first use in this function)
-      case LPX_E_BADB:
-           ^
- glpk_stubs.c:73:10: error: 'LPX_E_NOCONV' undeclared (first use in this function)
-      case LPX_E_NOCONV:
-           ^
- glpk_stubs.c: In function 'finalize_lpx':
- glpk_stubs.c:86:3: warning: implicit declaration of function 'lpx_delete_prob' [-Wimplicit-function-declaration]
-    lpx_delete_prob(Lpx_val(block));
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:86:19: note: in expansion of macro 'Lpx_val'
-    lpx_delete_prob(Lpx_val(block));
-                    ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:99:22: error: unknown type name 'LPX'
-  static value new_blp(LPX* lp)
-                       ^
- glpk_stubs.c: In function 'ocaml_glpk_new_prob':
- glpk_stubs.c:108:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_create_prob();
-    ^
- glpk_stubs.c:108:13: warning: implicit declaration of function 'lpx_create_prob' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_create_prob();
-              ^
- glpk_stubs.c:108:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c:109:10: warning: implicit declaration of function 'new_blp' [-Wimplicit-function-declaration]
-    return new_blp(lp);
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_prob_name':
- glpk_stubs.c:114:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:114:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:115:3: warning: implicit declaration of function 'lpx_set_prob_name' [-Wimplicit-function-declaration]
-    lpx_set_prob_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_prob_name':
- glpk_stubs.c:122:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:122:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:123:31: warning: implicit declaration of function 'lpx_get_prob_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- glpk_stubs.c:123:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:123:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_prob_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_name':
- glpk_stubs.c:128:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:128:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:129:3: warning: implicit declaration of function 'lpx_set_obj_name' [-Wimplicit-function-declaration]
-    lpx_set_obj_name(lp, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_name':
- glpk_stubs.c:136:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:136:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:137:31: warning: implicit declaration of function 'lpx_get_obj_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- glpk_stubs.c:137:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:137:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_obj_name(lp)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:140:33: error: 'LPX_MIN' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                  ^
- glpk_stubs.c:140:42: error: 'LPX_MAX' undeclared here (not in a function)
-  static int direction_table[] = {LPX_MIN, LPX_MAX};
-                                           ^
- glpk_stubs.c: In function 'ocaml_glpk_set_direction':
- glpk_stubs.c:144:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:144:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:145:3: warning: implicit declaration of function 'lpx_set_obj_dir' [-Wimplicit-function-declaration]
-    lpx_set_obj_dir(lp, direction_table[Int_val(direction)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_direction':
- glpk_stubs.c:151:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:151:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:152:10: warning: implicit declaration of function 'lpx_get_obj_dir' [-Wimplicit-function-declaration]
-    switch(lpx_get_obj_dir(lp))
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_add_rows':
- glpk_stubs.c:167:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:167:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:168:3: warning: implicit declaration of function 'lpx_add_rows' [-Wimplicit-function-declaration]
-    lpx_add_rows(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_row_name':
- glpk_stubs.c:174:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:174:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:175:3: warning: implicit declaration of function 'lpx_set_row_name' [-Wimplicit-function-declaration]
-    lpx_set_row_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_name':
- glpk_stubs.c:182:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:182:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:183:31: warning: implicit declaration of function 'lpx_get_row_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:183:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:183:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_row_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:186:34: error: 'LPX_FR' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                   ^
- glpk_stubs.c:186:34: error: initializer element is not constant
- glpk_stubs.c:186:34: note: (near initialization for 'auxvartype_table[0]')
- glpk_stubs.c:186:42: error: 'LPX_LO' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                           ^
- glpk_stubs.c:186:42: error: initializer element is not constant
- glpk_stubs.c:186:42: note: (near initialization for 'auxvartype_table[1]')
- glpk_stubs.c:186:50: error: 'LPX_UP' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                   ^
- glpk_stubs.c:186:50: error: initializer element is not constant
- glpk_stubs.c:186:50: note: (near initialization for 'auxvartype_table[2]')
- glpk_stubs.c:186:58: error: 'LPX_DB' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                           ^
- glpk_stubs.c:186:58: error: initializer element is not constant
- glpk_stubs.c:186:58: note: (near initialization for 'auxvartype_table[3]')
- glpk_stubs.c:186:66: error: 'LPX_FX' undeclared here (not in a function)
-  static int auxvartype_table[] = {LPX_FR, LPX_LO, LPX_UP, LPX_DB, LPX_FX};
-                                                                   ^
- glpk_stubs.c:186:66: error: initializer element is not constant
- glpk_stubs.c:186:66: note: (near initialization for 'auxvartype_table[4]')
- glpk_stubs.c: In function 'ocaml_glpk_set_row_bounds':
- glpk_stubs.c:190:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:190:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:191:3: warning: implicit declaration of function 'lpx_set_row_bnds' [-Wimplicit-function-declaration]
-    lpx_set_row_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_add_cols':
- glpk_stubs.c:197:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:197:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:198:3: warning: implicit declaration of function 'lpx_add_cols' [-Wimplicit-function-declaration]
-    lpx_add_cols(lp, Int_val(n));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_name':
- glpk_stubs.c:204:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:204:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:205:3: warning: implicit declaration of function 'lpx_set_col_name' [-Wimplicit-function-declaration]
-    lpx_set_col_name(lp, Int_val(n) + 1, String_val(name));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_name':
- glpk_stubs.c:212:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:212:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from glpk_stubs.c:27:0:
- glpk_stubs.c:213:31: warning: implicit declaration of function 'lpx_get_col_name' [-Wimplicit-function-declaration]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- glpk_stubs.c:213:31: warning: passing argument 1 of 'caml_copy_string' makes pointer from integer without a cast [-Wint-conversion]
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/memory.h:451:29: note: in definition of macro 'CAMLreturnT'
-    type caml__temp_result = (result); \
-                              ^
- glpk_stubs.c:213:3: note: in expansion of macro 'CAMLreturn'
-    CAMLreturn(caml_copy_string(lpx_get_col_name(lp, Int_val(n) + 1)));
-    ^
- In file included from glpk_stubs.c:23:0:
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:36:18: note: expected 'const char *' but argument is of type 'int'
-  CAMLextern value caml_copy_string (char const *);
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_set_col_bounds':
- glpk_stubs.c:218:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:218:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:219:3: warning: implicit declaration of function 'lpx_set_col_bnds' [-Wimplicit-function-declaration]
-    lpx_set_col_bnds(lp, Int_val(n) + 1, auxvartype_table[Int_val(type)], Double_val(lb), Double_val(ub));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_set_obj_coef':
- glpk_stubs.c:225:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:225:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:226:3: warning: implicit declaration of function 'lpx_set_obj_coef' [-Wimplicit-function-declaration]
-    lpx_set_obj_coef(lp, Int_val(n) + 1, Double_val(coef));
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_matrix':
- glpk_stubs.c:232:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:232:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:265:3: warning: implicit declaration of function 'lpx_load_matrix' [-Wimplicit-function-declaration]
-    lpx_load_matrix(lp, n - 1, ia, ja, ar);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_load_sparse_matrix':
- glpk_stubs.c:276:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:276:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: In function 'ocaml_glpk_simplex':
- glpk_stubs.c:306:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:306:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:310:9: warning: implicit declaration of function 'lpx_simplex' [-Wimplicit-function-declaration]
-    ret = lpx_simplex(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_obj_val':
- glpk_stubs.c:319:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:319:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:321:7: warning: implicit declaration of function 'lpx_get_class' [-Wimplicit-function-declaration]
-    if (lpx_get_class(lp) == LPX_MIP)
-        ^
- glpk_stubs.c:321:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:321:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:322:11: warning: implicit declaration of function 'lpx_mip_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_obj_val(lp);
-            ^
- glpk_stubs.c:324:11: warning: implicit declaration of function 'lpx_get_obj_val' [-Wimplicit-function-declaration]
-      ans = lpx_get_obj_val(lp);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_col_prim':
- glpk_stubs.c:330:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:330:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:333:28: error: 'LPX_MIP' undeclared (first use in this function)
-    if (lpx_get_class(lp) == LPX_MIP)
-                             ^
- glpk_stubs.c:333:25: warning: comparison between pointer and integer
-    if (lpx_get_class(lp) == LPX_MIP)
-                          ^
- glpk_stubs.c:334:11: warning: implicit declaration of function 'lpx_mip_col_val' [-Wimplicit-function-declaration]
-      ans = lpx_mip_col_val(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c:336:11: warning: implicit declaration of function 'lpx_get_col_prim' [-Wimplicit-function-declaration]
-      ans = lpx_get_col_prim(lp, Int_val(n) + 1);
-            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_prim':
- glpk_stubs.c:342:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:342:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:343:27: warning: implicit declaration of function 'lpx_get_row_prim' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_prim(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_row_dual':
- glpk_stubs.c:348:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:348:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:349:27: warning: implicit declaration of function 'lpx_get_row_dual' [-Wimplicit-function-declaration]
-    return caml_copy_double(lpx_get_row_dual(lp, Int_val(n) + 1));
-                            ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_rows':
- glpk_stubs.c:354:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:354:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:355:18: warning: implicit declaration of function 'lpx_get_num_rows' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_rows(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:355:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_rows(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_get_num_cols':
- glpk_stubs.c:360:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:360:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:361:18: warning: implicit declaration of function 'lpx_get_num_cols' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_num_cols(lp));
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:361:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_num_cols(lp));
-           ^
- glpk_stubs.c: In function 'ocaml_glpk_scale_problem':
- glpk_stubs.c:366:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:366:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:367:3: warning: implicit declaration of function 'lpx_scale_prob' [-Wimplicit-function-declaration]
-    lpx_scale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_unscale_problem':
- glpk_stubs.c:373:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:373:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:374:3: warning: implicit declaration of function 'lpx_unscale_prob' [-Wimplicit-function-declaration]
-    lpx_unscale_prob(lp);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_interior':
- glpk_stubs.c:389:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:389:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:393:9: warning: implicit declaration of function 'lpx_interior' [-Wimplicit-function-declaration]
-    ret = lpx_interior(lp);
-          ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:400:29: error: 'LPX_LP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                              ^
- glpk_stubs.c:400:29: error: initializer element is not constant
- glpk_stubs.c:400:29: note: (near initialization for 'class_table[0]')
- glpk_stubs.c:400:37: error: 'LPX_MIP' undeclared here (not in a function)
-  static int class_table[] = {LPX_LP, LPX_MIP};
-                                      ^
- glpk_stubs.c:400:37: error: initializer element is not constant
- glpk_stubs.c:400:37: note: (near initialization for 'class_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_class':
- glpk_stubs.c:404:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:404:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:405:3: warning: implicit declaration of function 'lpx_set_class' [-Wimplicit-function-declaration]
-    lpx_set_class(lp, class_table[Int_val(class)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_get_class':
- glpk_stubs.c:411:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:411:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:425:28: error: 'LPX_CV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                             ^
- glpk_stubs.c:425:28: error: initializer element is not constant
- glpk_stubs.c:425:28: note: (near initialization for 'kind_table[0]')
- glpk_stubs.c:425:36: error: 'LPX_IV' undeclared here (not in a function)
-  static int kind_table[] = {LPX_CV, LPX_IV};
-                                     ^
- glpk_stubs.c:425:36: error: initializer element is not constant
- glpk_stubs.c:425:36: note: (near initialization for 'kind_table[1]')
- glpk_stubs.c: In function 'ocaml_glpk_set_col_kind':
- glpk_stubs.c:429:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:429:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:430:3: warning: implicit declaration of function 'lpx_set_col_kind' [-Wimplicit-function-declaration]
-    lpx_set_col_kind(lp, Int_val(n) + 1, kind_table[Int_val(kind)]);
-    ^
- glpk_stubs.c: In function 'ocaml_glpk_integer':
- glpk_stubs.c:437:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:437:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:441:9: warning: implicit declaration of function 'lpx_integer' [-Wimplicit-function-declaration]
-    ret = lpx_integer(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_intopt':
- glpk_stubs.c:451:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:451:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:455:9: warning: implicit declaration of function 'lpx_intopt' [-Wimplicit-function-declaration]
-    ret = lpx_intopt(lp);
-          ^
- glpk_stubs.c: In function 'ocaml_glpk_warm_up':
- glpk_stubs.c:464:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp);
-    ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:464:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp);
-              ^
- glpk_stubs.c:465:18: warning: implicit declaration of function 'lpx_warm_up' [-Wimplicit-function-declaration]
-    raise_on_error(lpx_warm_up(lp));
-                   ^
- glpk_stubs.c: In function 'ocaml_glpk_get_message_level':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:473:18: warning: implicit declaration of function 'lpx_get_int_parm' [-Wimplicit-function-declaration]
-    return Val_int(lpx_get_int_parm(lp, param)); \
-                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_message_level':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:478:3: warning: implicit declaration of function 'lpx_set_int_parm' [-Wimplicit-function-declaration]
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-    ^
- glpk_stubs.c:496:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-  ^
- glpk_stubs.c:496:31: error: 'LPX_K_MSGLEV' undeclared (first use in this function)
-  BIND_INT_PARAM(message_level, LPX_K_MSGLEV);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_scaling':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_scaling':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:497:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-  ^
- glpk_stubs.c:497:25: error: 'LPX_K_SCALE' undeclared (first use in this function)
-  BIND_INT_PARAM(scaling, LPX_K_SCALE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_dual_simplex':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_dual_simplex':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:498:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-  ^
- glpk_stubs.c:498:34: error: 'LPX_K_DUAL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_dual_simplex, LPX_K_DUAL);
-                                   ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_pricing':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_pricing':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:499:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-  ^
- glpk_stubs.c:499:25: error: 'LPX_K_PRICE' undeclared (first use in this function)
-  BIND_INT_PARAM(pricing, LPX_K_PRICE);
-                          ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_relaxation':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:486:16: warning: implicit declaration of function 'lpx_get_real_parm' [-Wimplicit-function-declaration]
-    double ans = lpx_get_real_parm(lp, param); \
-                 ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_relaxation':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:492:3: warning: implicit declaration of function 'lpx_set_real_parm' [-Wimplicit-function-declaration]
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-    ^
- glpk_stubs.c:500:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-  ^
- glpk_stubs.c:500:29: error: 'LPX_K_RELAX' undeclared (first use in this function)
-  BIND_REAL_PARAM(relaxation, LPX_K_RELAX);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_solution_rounding':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_solution_rounding':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:505:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-  ^
- glpk_stubs.c:505:35: error: 'LPX_K_ROUND' undeclared (first use in this function)
-  BIND_INT_PARAM(solution_rounding, LPX_K_ROUND);
-                                    ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_limit':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_limit':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:506:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-  ^
- glpk_stubs.c:506:33: error: 'LPX_K_ITLIM' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_limit, LPX_K_ITLIM);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_iteration_count':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_iteration_count':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:507:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-  ^
- glpk_stubs.c:507:33: error: 'LPX_K_ITCNT' undeclared (first use in this function)
-  BIND_INT_PARAM(iteration_count, LPX_K_ITCNT);
-                                  ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_time_limit':
- glpk_stubs.c:485:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:485:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:486:38: note: in definition of macro 'BIND_REAL_PARAM'
-    double ans = lpx_get_real_parm(lp, param); \
-                                       ^
- glpk_stubs.c: In function 'ocaml_glpk_set_time_limit':
- glpk_stubs.c:491:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:491:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:508:1: note: in expansion of macro 'BIND_REAL_PARAM'
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-  ^
- glpk_stubs.c:508:29: error: 'LPX_K_TMLIM' undeclared (first use in this function)
-  BIND_REAL_PARAM(time_limit, LPX_K_TMLIM);
-                              ^
- glpk_stubs.c:492:25: note: in definition of macro 'BIND_REAL_PARAM'
-    lpx_set_real_parm(lp, param, Double_val(n)); \
-                          ^
- glpk_stubs.c: In function 'ocaml_glpk_get_branching_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_branching_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:509:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-  ^
- glpk_stubs.c:509:37: error: 'LPX_K_BRANCH' undeclared (first use in this function)
-  BIND_INT_PARAM(branching_heuristic, LPX_K_BRANCH);
-                                      ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_backtracking_heuristic':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_backtracking_heuristic':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:510:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-  ^
- glpk_stubs.c:510:40: error: 'LPX_K_BTRACK' undeclared (first use in this function)
-  BIND_INT_PARAM(backtracking_heuristic, LPX_K_BTRACK);
-                                         ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_get_use_presolver':
- glpk_stubs.c:472:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:472:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- In file included from /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/alloc.h:24:0,
-                  from glpk_stubs.c:23:
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/ocaml/caml/mlvalues.h:73:47: note: in definition of macro 'Val_long'
-  #define Val_long(x)     ((intnat) (((uintnat)(x) << 1)) + 1)
-                                                ^
- glpk_stubs.c:473:10: note: in expansion of macro 'Val_int'
-    return Val_int(lpx_get_int_parm(lp, param)); \
-           ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c: In function 'ocaml_glpk_set_use_presolver':
- glpk_stubs.c:477:3: error: unknown type name 'LPX'
-    LPX *lp = Lpx_val(blp); \
-    ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:82:20: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                     ^
- glpk_stubs.c:477:13: note: in expansion of macro 'Lpx_val'
-    LPX *lp = Lpx_val(blp); \
-              ^
- glpk_stubs.c:511:1: note: in expansion of macro 'BIND_INT_PARAM'
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-  ^
- glpk_stubs.c:511:31: error: 'LPX_K_PRESOL' undeclared (first use in this function)
-  BIND_INT_PARAM(use_presolver, LPX_K_PRESOL);
-                                ^
- glpk_stubs.c:478:24: note: in definition of macro 'BIND_INT_PARAM'
-    lpx_set_int_parm(lp, param, Int_val(n)); \
-                         ^
- glpk_stubs.c: In function 'ocaml_glpk_read_cplex':
- glpk_stubs.c:515:3: error: unknown type name 'LPX'
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-    ^
- glpk_stubs.c:515:13: warning: implicit declaration of function 'lpx_read_cpxlp' [-Wimplicit-function-declaration]
-    LPX *lp = lpx_read_cpxlp(String_val(fname));
-              ^
- glpk_stubs.c:515:13: warning: initialization makes pointer from integer without a cast [-Wint-conversion]
- glpk_stubs.c: In function 'ocaml_glpk_write_cplex':
- glpk_stubs.c:523:7: warning: implicit declaration of function 'lpx_write_cpxlp' [-Wimplicit-function-declaration]
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-        ^
- glpk_stubs.c:82:24: error: 'LPX' undeclared (first use in this function)
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                         ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:29: error: expected expression before ')' token
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                              ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:27: error: invalid operands to binary * (have 'int *' and 'int')
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                            ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c:82:23: error: called object is not a function or function pointer
-  #define Lpx_val(v) (*((LPX**)Data_custom_val(v)))
-                        ^
- glpk_stubs.c:523:23: note: in expansion of macro 'Lpx_val'
-    if (lpx_write_cpxlp(Lpx_val(blp), String_val(fname)))
-                        ^
- glpk_stubs.c: At top level:
- glpk_stubs.c:89:33: warning: 'lpx_ops' defined but not used [-Wunused-variable]
-  static struct custom_operations lpx_ops =
-                                  ^
- OCamlMakefile:1013: recipe for target 'glpk_stubs.o' failed
- make[2]: *** [glpk_stubs.o] Error 2
- make[2]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- OCamlMakefile:716: recipe for target 'byte-code-library' failed
- make[1]: *** [byte-code-library] Error 2
- make[1]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
- Makefile:13: recipe for target 'byte' failed
- make: *** [byte] Error 2
- ocamlfind: [WARNING] No such file: /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/lib/glpk/META

#=== ERROR while installing glpk.0.1.6 ========================================#
# opam-version         1.2.2+dd (3852ba0a7708d4dc37f64dd4cd00f873bf317ac0)
# os                   linux
# command              make byte opt
# path                 /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6
# compiler             4.07.0+pr2051
# exit-code            2
# env-file             /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/glpk-791.env
# stdout-file          /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/glpk-791.out
# stderr-file          /home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/glpk-791.out
### stdout ###
# glpk_stubs.c:89:33: warning: 'lpx_ops' defined but not used [-Wunused-variable]
# [...]
#                                  ^
# OCamlMakefile:1013: recipe for target 'glpk_stubs.o' failed
# make[2]: *** [glpk_stubs.o] Error 2
# make[2]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
# OCamlMakefile:716: recipe for target 'byte-code-library' failed
# make[1]: *** [byte-code-library] Error 2
# make[1]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
# Makefile:13: recipe for target 'byte' failed
# make: *** [byte] Error 2
### stderr ###
# glpk_stubs.c:89:33: warning: 'lpx_ops' defined but not used [-Wunused-variable]
# [...]
#                                  ^
# OCamlMakefile:1013: recipe for target 'glpk_stubs.o' failed
# make[2]: *** [glpk_stubs.o] Error 2
# make[2]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
# OCamlMakefile:716: recipe for target 'byte-code-library' failed
# make[1]: *** [byte-code-library] Error 2
# make[1]: Leaving directory '/home/doligez/opamcheck/sandbox2/opamstate/4.07.0+pr2051/dotopam/4.07.0+pr2051/build/glpk.0.1.6/src'
# Makefile:13: recipe for target 'byte' failed
# make: *** [byte] Error 2



=-=- Error report -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The following actions failed
  - install glpk 0.1.6
No changes have been performed

=-=- glpk.0.1.6 troobleshooting -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=> This package relies on external (system) dependencies that may be missing.
   `opam depext glpk.0.1.6' may help you find the correct installation for your
   system.
'opam install glpk.0.1.6' failed.