diff options
Diffstat (limited to 'asm/asm.ml')
| -rw-r--r-- | asm/asm.ml | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -56,11 +56,13 @@ type instr = | Liu of (reg * imm) | Liuz of (reg * imm) | Lra of imm - | TwoRawBytes of (int * int) + | Byte of int + | Word of int + | Hlt module Imap = Map.Make(String) -type program = { text : instr list; data : (int * bool) list; +type program = { text : instr list; lbls : (int * bool) Imap.t } let keywords_r = [ @@ -96,3 +98,5 @@ let keywords_r = [ "swr",Swr; "sbr",Sbr ] + +exception Lexer_error |