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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/high-to-mid/probe-ein.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/high-to-mid/probe-ein.sml

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

revision 3791, Thu Apr 28 19:01:25 2016 UTC revision 3793, Thu Apr 28 21:42:13 2016 UTC
# Line 260  Line 260 
260          (* need to rewrite dx *)          (* need to rewrite dx *)
261            val sxx = sx@newsx            val sxx = sx@newsx
262            val (_, sizes, E.Conv(_, alpha', _, dx)) = (case sxx            val (_, sizes, E.Conv(_, alpha', _, dx)) = (case sxx
263  (* QUESTION: what is the significance of "9" and "7" in this code? *)                   of [] => ([], index, E.Conv(0, alpha, 1, dx'))
264                   of [] => ([], index, E.Conv(9, alpha, 7, dx'))                    | _ => CleanIndex.clean(E.Conv(0, alpha, 1, dx'), index, sxx)
                   | _ => CleanIndex.clean(E.Conv(9, alpha, 7, dx'), index, sxx)  
265                  (* end case *))                  (* end case *))
266            fun filterAlpha [] = dx'            fun filterAlpha [] = dx'
267              | filterAlpha (E.C _::es) = filterAlpha es              | filterAlpha (E.C _::es) = filterAlpha es

Legend:
Removed from v.3791  
changed lines
  Added in v.3793

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