Commit 97bdc22b authored by Martin Pépin's avatar Martin Pépin
Browse files

use lw instead of lb

parent f6be1b03
......@@ -72,7 +72,7 @@ textline:
| SYNC ; eols
{ let label = fresh_sync_label () in
[ TLabel label ;
TInstr (Iinstr2(0x20, "t0", "zero", 2)) ;
TInstr (Iinstr2(0x23, "t0", "zero", 0)) ;
TInstr (Iinstrl2(0x4, "t0", "zero", label)) ] }
dataline: l = LABEL ; ASCIIZ ; s = STRING ; eols { Asciiz (l, s) }
......
......@@ -40,7 +40,7 @@ module Env = struct
(* The special case of address 0x00000002 *)
let set_tick_byte env v =
Ram.write_byte env.ram 2 (Ram.bits_of_int 8 v)
Ram.write_word env.ram 0 (Ram.bits_of_int 32 v)
(* RAM/ROM manipulation *)
let wrong_size size = Ram.(
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment