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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/mid-to-low/current.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/mid-to-low/current.sml

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

revision 3594, Fri Jan 15 23:07:49 2016 UTC revision 3595, Sat Jan 16 05:48:18 2016 UTC
# Line 63  Line 63 
63                      of [] => (("No code for..:"^P.printerE(e));[LowIL.ASSGN(y,LowIL.VAR(List.hd(args)))])                      of [] => (("No code for..:"^P.printerE(e));[LowIL.ASSGN(y,LowIL.VAR(List.hd(args)))])
64                      | [LowIL.ASSGN(_,B)]=>code@[LowIL.ASSGN (y,B)](* causes error without code*)                      | [LowIL.ASSGN(_,B)]=>code@[LowIL.ASSGN (y,B)](* causes error without code*)
65                      | (LowIL.ASSGN (a1,A)::_)   =>  (case b                      | (LowIL.ASSGN (a1,A)::_)   =>  (case b
66                          of  E.Op2 (E.Sub,_,_)    => orig()                          of  (*E.Op2 (E.Sub,_,_)    => orig()
67                          | E.Opn _               => orig()                          | E.Opn _               => orig()
68                          | E.Sum(_,e)=> if(findField e) then code@[LowIL.ASSGN (y,A)] else orig()                          | E.Sum(_,e)=> if(findField e) then code@[LowIL.ASSGN (y,A)] else orig()
69                          | _ =>code@[LowIL.ASSGN (y,A)]                          |*) _ =>code@[LowIL.ASSGN (y,A)]
70                          (*end case*))                          (*end case*))
71                      (*end case*))                      (*end case*))
72                  end                  end

Legend:
Removed from v.3594  
changed lines
  Added in v.3595

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