- val neighbors = (* Grab all the neighbors for some given temp. *)
- List.hd
- (List.map (fn (_, neighbors) => neighbors)
- (List.filter (fn (t, _) => T.compare (t, chosen) = EQUAL) graph))
- val () = List.app
- (fn (X.TEMP t) => (print (" Neighbor "^(Temp.name t)^"\n"))
- | (X.REG X.EAX) => (print " Fixed color EAX\n")
- | (X.REG X.EDX) => (print " Fixed color EDX\n")
- | _ => raise ErrorMsg.InternalError "Unknown neighbor type -- const?"
- ) neighbors;
+ val neighbors = (* Grab all the neighbors for some given temp. *)
+ (OperSet.listItems
+ (valOf (TempMap.find (graph, chosen))))