15 lines
No EOL
372 B
OCaml
15 lines
No EOL
372 B
OCaml
(*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
|
|
|
|
let find_symbol (tab : symtab) (label : string) : int =
|
|
Hashtbl.find tab label |