Commit f5305f1a authored by mb0's avatar mb0
Browse files

Up.

parent f2e78832
......@@ -44,7 +44,7 @@ structure SymbolTable :> SymbolTableSig = struct
val concisePrint : bool = false
structure SymbolTable = IntRedBlackMap
structure SymbolTable = IntBinaryMap
structure Reverse = AtomRedBlackMap
datatype symid = SymId of int
......@@ -183,9 +183,9 @@ structure SymTab = struct
fun new () = mkTable(1000,Fail"Invalid symbol")
end
structure SymMap = RedBlackMapFn(ord_symid)
structure SymSet = RedBlackSetFn(ord_symid)
structure SymListSet = ListSetFn(ord_symid)
structure SymMap = BinaryMapFn(ord_symid)
structure SymSet = BinarySetFn(ord_symid)
structure SymListSet = SymSet
structure SpanMap = RedBlackMapFn(struct
type ord_key = Error.span
......
......@@ -436,7 +436,4 @@ val translate insn =
return (revSeq stack)
end
# vim:filetype=sml
# vim:ts=3
# vim:sw=3
# vim:expandtab
# vim:filetype=sml:ts=3:sw=3:expandtab
Supports Markdown
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