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

SCM Repository

[diderot] Diff of /branches/ein16/src/compiler/low-il/ein-to-low.sml
ViewVC logotype

Diff of /branches/ein16/src/compiler/low-il/ein-to-low.sml

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

revision 3682, Thu Feb 18 20:13:18 2016 UTC revision 3687, Sun Feb 28 03:46:43 2016 UTC
# Line 28  Line 28 
28      fun evalField e= EtoFld.evalField e      fun evalField e= EtoFld.evalField e
29      fun intToReal n=H.intToReal n      fun intToReal n=H.intToReal n
30      fun testp p=(String.concat p)      fun testp p=(String.concat p)
31      val sca= false      val scaFlag= ref false
32    
33        val controls = [("scaFlag",scaFlag,"scaFlag")]
34    
35    
36      (*dropIndex: a list-> int*a*alist      (*dropIndex: a list-> int*a*alist
37      * alpha::i->returns  length of list-1,i,alpha      * alpha::i->returns  length of list-1,i,alpha
# Line 313  Line 316 
316              |  (_,_ )=> gen b              |  (_,_ )=> gen b
317              (*end case*))              (*end case*))
318          in          in
319          if (sca) then ( "ein-to-low sca";runGeneralCase info) else ("ein-to-low vec:"; gen b)          if (!scaFlag) then ( "ein-to-low sca";runGeneralCase info) else ("ein-to-low vec:"; gen b)
320          end          end
321    
322  end (* local *)  end (* local *)

Legend:
Removed from v.3682  
changed lines
  Added in v.3687

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