Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/ein16/src/compiler/high-to-mid/high-to-mid.sml
ViewVC logotype

Diff of /branches/ein16/src/compiler/high-to-mid/high-to-mid.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4235, Tue Jul 19 22:26:44 2016 UTC revision 4236, Wed Jul 20 03:02:00 2016 UTC
# Line 174  Line 174 
174                        end                        end
175                    | _ => raise Fail "bogus kernel binding"                    | _ => raise Fail "bogus kernel binding"
176                  (* end case *))                  (* end case *))
177  | SrcIL.VAR _ =>  raise Fail "bogus field binding:var"  | SrcIL.EINAPP (ein,args) =>  raise Fail ("bogus field binding:var:"^P.printerE(ein)^"-"^Int.toString(length(args)))
178    | SrcIL.VAR _ =>  raise Fail "bogus field binding:var:"
179  | SrcIL.OP _ =>  raise Fail "bogus field binding:op"  | SrcIL.OP _ =>  raise Fail "bogus field binding:op"
180  | _ => raise Fail "bogus field binding:other"  | SrcIL.CONS _ =>  raise Fail "bogus field binding:cons"
181    | SrcIL.STATE _ =>  raise Fail "bogus field binding:state"
182    | SrcIL.LIT _ =>  raise Fail "bogus field binding:lit"
183    | SrcIL.APPLY _ =>  raise Fail "bogus field binding:apply"
184    (*| _ => raise Fail "bogus field binding:unsure"*)
185            (* end case *))            (* end case *))
186    
187    

Legend:
Removed from v.4235  
changed lines
  Added in v.4236

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0