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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/IL/expr-fn.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/IL/expr-fn.sml

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

revision 2604, Fri Apr 25 18:23:44 2014 UTC revision 2605, Wed Apr 30 01:46:09 2014 UTC
# Line 91  Line 91 
91            MathFuns.same(f1, f2) andalso same'(args1, args2)            MathFuns.same(f1, f2) andalso same'(args1, args2)
92        | sameNd (CONS(_, args1), CONS(_, args2)) = same'(args1, args2)        | sameNd (CONS(_, args1), CONS(_, args2)) = same'(args1, args2)
93        | sameNd (PHI args1, PHI args2) = same'(args1, args2)        | sameNd (PHI args1, PHI args2) = same'(args1, args2)
94        | sameNd (EINAPP(ein1, a1), EINAPP(ein2, a2))= (print "EQ Same";        | sameNd (EINAPP(ein1, a1), EINAPP(ein2, a2))=             EQ.isEinEqual(ein1,ein2) andalso same'(a1, a2)
95              EQ.isEinEqual(ein1,ein2) andalso same'(a1, a2))        | sameNd _ = false
       | sameNd _ = (print "EQ else";false)  
96    
97      fun toString exp = let      fun toString exp = let
98            fun toS (e : expr, l) = (case #nd e            fun toS (e : expr, l) = (case #nd e

Legend:
Removed from v.2604  
changed lines
  Added in v.2605

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