working on pass 2
This commit is contained in:
parent
7810346819
commit
f79aa96359
4 changed files with 83 additions and 7 deletions
|
|
@ -9,4 +9,7 @@ let add_symbol (tab : symtab) (label : string) (addr : int) =
|
|||
if Hashtbl.mem tab label then
|
||||
failwith "Duplicate symbol in simtab"
|
||||
else
|
||||
Hashtbl.add tab label addr
|
||||
Hashtbl.add tab label addr
|
||||
|
||||
let find_symbol (tab : symtab) (label : string) : int =
|
||||
Hashtbl.find tab label
|
||||
Loading…
Add table
Add a link
Reference in a new issue