lablgl
lablgl copied to clipboard
Togl/src/ml_togl.c: funcs wrong names
looks like plain wrong names... somehow
ml_togl.c: In function 'TOGLenum_val':
ml_togl.c:34:5: warning: implicit declaration of function 'invalid_argument'; did you mean 'caml_invalid_argument'? [-Wimplicit-function-declaration
]
34 | invalid_argument ("Unknown Togl tag");
| ^~~~~~~~~~~~~~~~
| caml_invalid_argument
ml_togl.c: In function 'togl_prerr':
ml_togl.c:40:20: warning: implicit declaration of function 'copy_string'; did you mean 'caml_copy_string'? [-Wimplicit-function-declaration]
40 | value ml_msg = copy_string(msg);
| ^~~~~~~~~~~
| caml_copy_string
ml_togl.c:41:20: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers]
41 | value *prerr = caml_named_value("togl_prerr");
| ^~~~~~~~~~~~~~~~
ml_togl.c: In function 'ml_Togl_Init':
ml_togl.c:48:21: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers]
48 | value *interp = caml_named_value("cltclinterp");
| ^~~~~~~~~~~~~~~~
ml_togl.c:52:7: warning: implicit declaration of function 'raise_with_string'; did you mean 'caml_raise_with_string'? [-Wimplicit-function-declarati
on]
52 | raise_with_string(*caml_named_value("tkerror"), "Togl_Init failed");
| ^~~~~~~~~~~~~~~~~
| caml_raise_with_string
ml_togl.c: In function 'callback_CreateFunc':
ml_togl.c:80:3: warning: implicit declaration of function 'callback'; did you mean 'calloc'? [-Wimplicit-function-declaration]
80 | { callback (Field(*callbacks, func), Val_addr(togl)); }
ml_togl.c:80:3: warning: implicit declaration of function 'callback'; did you mean 'calloc'? [-Wimplicit-function-declaration]
80 | { callback (Field(*callbacks, func), Val_addr(togl)); }
| ^~~~~~~~
ml_togl.c:91:1: note: in expansion of macro 'CALLBACK'
91 | CALLBACK (CreateFunc)
| ^~~~~~~~
ml_togl.c: In function 'ml_Togl_CreateFunc':
ml_togl.c:87:36: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers]
87 | { if (callbacks == NULL) callbacks = caml_named_value ("togl_callbacks"); \
| ^
https://github.com/garrigue/lablgl/pull/8