fabs/oboy
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Change of heart, begin is cool

Browse source
This commit is contained in:
Fabien Freling 2016-03-01 00:22:56 +01:00
parent 77f7c7bef3
commit c6106203eb
3 changed files with 14 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/memory.ml
View file

@ -99,11 +99,11 @@ let update_timers mem cycles =
if should_inc_div then ignore (inc mem.map gDIV);
let should_inc_tima = Timer.update mem.tima cycles in
if should_inc_tima then (
if should_inc_tima then begin
let overflow = inc mem.map gTIMA in
if overflow then (
if overflow then begin
let tma = get mem.map gTMA in
set mem.map gTIMA tma
(* TODO: INT 50 - Timer interupt *)
)
)
end
end