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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/tree-il/tree-func.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/tree-il/tree-func.sml

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

revision 2844, Tue Dec 9 18:05:29 2014 UTC revision 2845, Fri Dec 12 06:46:23 2014 UTC
# Line 22  Line 22 
22    
23      fun iTos m=Int.toString m      fun iTos m=Int.toString m
24    
   
25      fun same( LDArr(a0,a1,a2), LDArr(b0,b1,b2))=(a0=b0) andalso Op.sameint(a1, b1) andalso Op.sameint(a2, b2)      fun same( LDArr(a0,a1,a2), LDArr(b0,b1,b2))=(a0=b0) andalso Op.sameint(a1, b1) andalso Op.sameint(a2, b2)
26      (*| same ( STORE(a0,a1,a2),  STORE(b0,b1,b2))=      (*| same ( STORE(a0,a1,a2),  STORE(b0,b1,b2))=
27          if (a2>a1) then          if (a2>a1) then
# Line 41  Line 40 
40      | same ( COPY a0, COPY b0)= Op.sameint(a0,b0)      | same ( COPY a0, COPY b0)= Op.sameint(a0,b0)
41      | same _ =false      | same _ =false
42    
   
43      fun boolToHash true=0w3      fun boolToHash true=0w3
44        | boolToHash _=0w7        | boolToHash _=0w7
45    

Legend:
Removed from v.2844  
changed lines
  Added in v.2845

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