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/float-ein.sml
ViewVC logotype

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

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

revision 4256, Mon Jul 25 14:49:22 2016 UTC revision 4257, Mon Jul 25 15:23:32 2016 UTC
# Line 18  Line 18 
18      structure E = Ein      structure E = Ein
19      structure cleanP=cleanParams      structure cleanP=cleanParams
20      structure cleanI=cleanIndex      structure cleanI=cleanIndex
21      structure AvailRHS=AvailRHSCnt      structure AvailRHS=AvailRHSNoCnt
22      fun mkEin e=Ein.mkEin e      fun mkEin e=Ein.mkEin e
23      fun mkEinApp(rator,args)=IR.EINAPP(rator,args)      fun mkEinApp(rator,args)=IR.EINAPP(rator,args)
24      fun cleanParams e = cleanP.cleanParams e      fun cleanParams e = cleanP.cleanParams e
# Line 159  Line 159 
159            val einapp = cleanParams.cleanParams (y, body', params', index, args')            val einapp = cleanParams.cleanParams (y, body', params', index, args')
160          val c=IR.ASSGN einapp          val c=IR.ASSGN einapp
161        (*count number of available terms*)        (*count number of available terms*)
162    (*
163          val n=AvailRHS.getCount avail          val n=AvailRHS.getCount avail
164          val _ =if(n>1) then print("\ncnt"^Int.toString(n))   else print""          val _ =if(n>1) then print("\ncnt"^Int.toString(n))   else print""
165    *)
166            in            in
167              List.rev (c :: AvailRHS.getAssignments avail)              List.rev (c :: AvailRHS.getAssignments avail)
168            end            end

Legend:
Removed from v.4256  
changed lines
  Added in v.4257

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