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 2675, Sat Jul 19 20:57:06 2014 UTC revision 2676, Wed Jul 23 02:43:37 2014 UTC
# Line 378  Line 378 
378                             (* | Ty.TensorTy _ => [CL.E_Str "printer test"]*)                             (* | Ty.TensorTy _ => [CL.E_Str "printer test"]*)
379    
380                              | Ty.TensorTy[] => [CL.E_Str "%f\n", outState]                              | Ty.TensorTy[] => [CL.E_Str "%f\n", outState]
381                              | Ty.TensorTy[d] => let                              | Ty.TensorTy size =>let
382                                    fun shape [e1]=  e1
383                                    | shape ([e1,e2])=  e1*e2
384                                    | shape (e1::e2::es)=  shape((e1*e2)::es)
385                                    val d=shape size
386    
387                                  val fmt = CL.E_Str(                                  val fmt = CL.E_Str(
388                                        String.concatWith " " (List.tabulate(d, fn _ => "%f"))                                        String.concatWith " " (List.tabulate(d, fn _ => "%f"))
389                                        ^ "\n")                                        ^ "\n")
# Line 386  Line 391 
391                                  in                                  in
392                                    fmt :: args                                    fmt :: args
393                                  end                                  end
394    
395                              | Ty.SeqTy(Ty.IntTy, d) => let                              | Ty.SeqTy(Ty.IntTy, d) => let
396                                  val fmt = CL.E_Str(                                  val fmt = CL.E_Str(
397                                        String.concatWith " " (List.tabulate(d, fn _ => !N.gIntFormat))                                        String.concatWith " " (List.tabulate(d, fn _ => !N.gIntFormat))

Legend:
Removed from v.2675  
changed lines
  Added in v.2676

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