open Ctypes
open PosixTypes
open Foreign
(* typedef void (RETRO_CALLCONV *retro_video_refresh_t)(const void *data, unsigned width,
unsigned height, size_t pitch); *)
let retro_video_refresh_t = ptr void @-> int @-> int @-> returning void