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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/tree-to-c-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-util/tree-to-c-fn.sml

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

revision 1872, Sun May 13 10:35:15 2012 UTC revision 1922, Sat Jun 23 11:25:39 2012 UTC
# Line 79  Line 79 
79    (* translate IL basis functions *)    (* translate IL basis functions *)
80      local      local
81        fun mkLookup suffix = let        fun mkLookup suffix = let
82              val tbl = ILBasis.Tbl.mkTable (16, Fail "basis table")              val tbl = MathFuns.Tbl.mkTable (16, Fail "basis table")
83              fun ins f = ILBasis.Tbl.insert tbl (f, ILBasis.toString f ^ suffix)              fun ins f = MathFuns.Tbl.insert tbl (f, MathFuns.toString f ^ suffix)
84              in              in
85                List.app ins ILBasis.allFuns;                List.app ins MathFuns.allFuns;
86                ILBasis.Tbl.lookup tbl                MathFuns.Tbl.lookup tbl
87              end              end
88        val fLookup = mkLookup "f"        val fLookup = mkLookup "f"
89        val dLookup = mkLookup ""        val dLookup = mkLookup ""

Legend:
Removed from v.1872  
changed lines
  Added in v.1922

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