Reorganize src/ directory
This commit is contained in:
parent
8aa8b9b69a
commit
3c0c2cff6f
|
@ -1,3 +1,3 @@
|
||||||
(executable
|
(library
|
||||||
(name oboy)
|
(name oboy)
|
||||||
(libraries threads))
|
(libraries threads))
|
|
@ -13,10 +13,10 @@ open Printf
|
||||||
@see http://imrannazar.com/GameBoy-Emulation-in-JavaScript:-Memory *)
|
@see http://imrannazar.com/GameBoy-Emulation-in-JavaScript:-Memory *)
|
||||||
|
|
||||||
(** Common addresses *)
|
(** Common addresses *)
|
||||||
let gDIV = 0xFF04 (** divider register *)
|
let gDIV = 0xFF04 (* divider register *)
|
||||||
let gTIMA = 0xFF05 (** timer counter *)
|
let gTIMA = 0xFF05 (* timer counter *)
|
||||||
let gTMA = 0xFF06 (** timer modulo *)
|
let gTMA = 0xFF06 (* timer modulo *)
|
||||||
let gTAC = 0xFF07 (** timer control *)
|
let gTAC = 0xFF07 (* timer control *)
|
||||||
|
|
||||||
type map = {
|
type map = {
|
||||||
rom_bank_00 : bytes; (* cartridge, 16KB *)
|
rom_bank_00 : bytes; (* cartridge, 16KB *)
|
7
src/retroarch/retroarch.ml
Normal file
7
src/retroarch/retroarch.ml
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
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
|
Loading…
Reference in a new issue