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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/simplify.sml

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

revision 2011, Sun Oct 7 21:14:31 2012 UTC revision 2012, Mon Oct 8 14:27:53 2012 UTC
# Line 24  Line 24 
24    (* make a block out of a list of statements that are in reverse order *)    (* make a block out of a list of statements that are in reverse order *)
25      fun mkBlock stms = S.Block(List.rev stms)      fun mkBlock stms = S.Block(List.rev stms)
26    
27      (* convert an AST expression to an input initialization.  Note that the Diderot grammar
28       * limits the forms of expression that we might encounter in this context.
29       *)
30      fun expToInit exp = (case exp      fun expToInit exp = (case exp
31             of AST.E_Lit(Literal.Int n) => Inputs.Int n             of AST.E_Lit(Literal.Int n) => Inputs.Int n
32              | AST.E_Lit(Literal.Float f) => Inputs.Real f              | AST.E_Lit(Literal.Float f) => Inputs.Real f

Legend:
Removed from v.2011  
changed lines
  Added in v.2012

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