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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/c-target/c-target.sml

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

revision 2845, Fri Dec 12 06:46:23 2014 UTC revision 2860, Fri Jan 23 19:42:12 2015 UTC
# Line 374  Line 374 
374                          ]                          ]
375                      val prArgs = (case outTy                      val prArgs = (case outTy
376                             of Ty.IntTy => [CL.E_Str(!N.gIntFormat ^ "\n"), outState]                             of Ty.IntTy => [CL.E_Str(!N.gIntFormat ^ "\n"), outState]
377                              | Ty.TensorTy[] => [CL.E_Str "%f\n", outState]                              | Ty.TensorTy[] => [CL.E_Str "%7.8f\n", outState]
378                              | Ty.TensorTy alpha=>let                              | Ty.TensorTy alpha=>let
379                                  (*Assumes Tensor can be printed as an array*)                                  (*Assumes Tensor can be printed as an array*)
380                                  fun size n=foldl (fn (a,b) => b*a) 1 n                                  fun size n=foldl (fn (a,b) => b*a) 1 n

Legend:
Removed from v.2845  
changed lines
  Added in v.2860

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