X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/5c79bb689ab446551bc7ec4497e6c9b75582837e..5e46186e8e7b8f4d9a28cb95954d8a75b6b34f81:/codegen/colororder.sml?ds=inline

diff --git a/codegen/colororder.sml b/codegen/colororder.sml
index 16dd163..f1a724b 100644
--- a/codegen/colororder.sml
+++ b/codegen/colororder.sml
@@ -7,7 +7,7 @@
 signature COLORORDER =
 sig
   structure OperSet : ORD_SET
-    where type Key.ord_key = x86.basicop
+    where type Key.ord_key = Blarg.oper
   structure LiveMap : ORD_MAP
     where type Key.ord_key = int
   structure TempMap : ORD_MAP
@@ -22,7 +22,7 @@ end
 structure ColorOrder :> COLORORDER =
 struct
   structure T = Temp
-  structure X = x86
+  structure X = Blarg
   
   structure OperSet = Igraph.OperSet
   structure LiveMap = Igraph.LiveMap
@@ -44,7 +44,7 @@ struct
                 if (w2 > w1)
                 then (t2, w2)
                 else (t1, w1))
-              (Temp.new "emarnus" Temp.Word, ~9999)
+              (Temp.new "emarnus", ~9999)
               weights
               
           fun ditchOne f nil = nil	(* Special case of filter, which bails out after it removes one. *)