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

SCM Repository

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

Diff of /branches/charisee/src/compiler/high-to-mid/expand-integrate.sml

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

revision 2520, Mon Dec 30 05:08:47 2013 UTC revision 2521, Thu Jan 9 02:17:07 2014 UTC
# Line 115  Line 115 
115                      val (args',code')=createArgs(dim,img,posx,pos)                      val (args',code')=createArgs(dim,img,posx,pos)
116                      val pos2=pos1+1                      val pos2=pos1+1
117                      val dict'=insert(t,(pos1,pos2)) dict                      val dict'=insert(t,(pos1,pos2)) dict
118                      val params'=[E.TEN,E.TEN]                      val params'=[E.TEN 1,E.TEN 1]
119                      in (pos1,pos2, dict',params',args',code')                      in (pos1,pos2, dict',params',args',code')
120                      end                      end
121                  | ((S _,_),(S_,_))=>(print "non-image and non-position";bug)                  | ((S _,_),(S_,_))=>(print "non-image and non-position";bug)

Legend:
Removed from v.2520  
changed lines
  Added in v.2521

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