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