1
This commit is contained in:
parent
1bbc80de29
commit
858db4dc0e
4 changed files with 109 additions and 29 deletions
12
ass3/zbirnik/lib/simtab.ml
Normal file
12
ass3/zbirnik/lib/simtab.ml
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
(*simbolna tabela*)
|
||||
|
||||
type symtab = (string, int) Hashtbl.t
|
||||
|
||||
let create_symtab () : symtab =
|
||||
Hashtbl.create 64
|
||||
|
||||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue