Ignore:
Timestamp:
Sep 23, 2010, 3:57:19 PM (10 years ago)
Author:
mulligan
Message:

Fixed obscure type error in pretty.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D4.1/pretty.ml

    r98 r121  
    66    `Label l -> l ^ ":"
    77  | `Cost l -> l ^ ":"
     8  | `Jmp j -> "Jump: " ^ j
     9  | `Call j -> "Call: " ^ j
    810  | `ACALL (`ADDR11 w) ->
    911    "ACALL addr11 (" ^ string_of_vect w ^ ")"
     
    5557  | `CPL `A -> "CPL A"
    5658  | `CPL `C -> "CPL C"
    57   | `CPL `BIT b1 -> "CPL bit (" ^ string_of_vect b1 ^ ")"
     59  | `CPL (`BIT b1) -> "CPL bit (" ^ string_of_vect b1 ^ ")"
    5860  | `DA `A ->
    5961  "DA `A"
     
    222224  | `XRL(`U2(`DIRECT b1, `DATA b2)) ->
    223225  "XRL direct #data (" ^ string_of_vect b2 ^ ")"
     226  | _ -> "BUG: Unimplemented!"
Note: See TracChangeset for help on using the changeset viewer.