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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml

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

revision 809, Tue Apr 12 16:16:03 2011 UTC revision 810, Tue Apr 12 16:30:36 2011 UTC
# Line 7  Line 7 
7  structure RuntimeNames =  structure RuntimeNames =
8    struct    struct
9    
10        local
11          structure F = Format
12        in
13    
14    (* globals that specify the target characteristics.  These should be initialized    (* globals that specify the target characteristics.  These should be initialized
15     * when the program object is created.     * when the program object is created.
16     *)     *)
# Line 68  Line 72 
72      val scale = addVecSuffix "scale"      val scale = addVecSuffix "scale"
73      val truncToInt = addVecSuffix "truncToInt"      val truncToInt = addVecSuffix "truncToInt"
74      val dot = addVecSuffix "dot"      val dot = addVecSuffix "dot"
75        fun mulVecMat (m, n) = F.format "mulVec%dMat%dx%d%s"
76              [F.INT m, F.INT m, F.INT n, F.STR(!gRealSuffix)]
77        fun mulMatVec (m, n) = F.format "mulMat%dx%dVec%d%s"
78              [F.INT n, F.INT m, F.INT n, F.STR(!gRealSuffix)]
79        fun mulMatMat (m, n, p) = F.format "mulMat%dx%dMat%dx%d%s"
80              [F.INT m, F.INT n, F.INT n, F.INT p, F.STR(!gRealSuffix)]
81      fun cross () = addVecSuffix "cross" 3      fun cross () = addVecSuffix "cross" 3
82      val length = addVecSuffix "length"      val length = addVecSuffix "length"
83      val normalize = addVecSuffix "normalize"      val normalize = addVecSuffix "normalize"
# Line 100  Line 110 
110              | ty => raise Fail("unsupported input type " ^ TargetTy.toString ty)              | ty => raise Fail("unsupported input type " ^ TargetTy.toString ty)
111            (* end case *))            (* end case *))
112    
113        end (* local *)
114    end    end

Legend:
Removed from v.809  
changed lines
  Added in v.810

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