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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/helper.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/helper.sml

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

revision 2924, Tue Mar 3 21:41:05 2015 UTC revision 3138, Thu Mar 26 16:27:35 2015 UTC
# Line 134  Line 134 
134              assgn(opp,[nU],name,vecTy)              assgn(opp,[nU],name,vecTy)
135          end          end
136    
   
137      fun mkSqrt(nU,code)= let      fun mkSqrt(nU,code)= let
138          val opp=DstOp.Sqrt          val opp=DstOp.Sqrt
139          val name=String.concat["_Sqrt_"]          val name=String.concat["_Sqrt_"]
140          val (vA,A)=assgn(opp,[nU],name,realTy)          val (vA,A)=assgn(opp,[nU],name,realTy)
141          in          in
142              (vA,code@A)              (vA,code@A)
143            end
144    
145        fun mkCosine(nU,code)= let
146            val opp=DstOp.Cosine
147            val name=String.concat["_Cosine_"]
148            val (vA,A)=assgn(opp,[nU],name,realTy)
149            in
150                (vA,code@A)
151            end
152    
153        fun mkArcCosine(nU,code)= let
154            val opp=DstOp.ArcCosine
155            val name=String.concat["_ArcCosine_"]
156            val (vA,A)=assgn(opp,[nU],name,realTy)
157            in
158            (vA,code@A)
159            end
160    
161        fun mkSine(nU,code)= let
162            val opp=DstOp.Sine
163            val name=String.concat["_Sine_"]
164            val (vA,A)=assgn(opp,[nU],name,realTy)
165            in
166                (vA,code@A)
167            end
168    
169        fun mkArcSine(nU,code)= let
170            val opp=DstOp.ArcSine
171            val name=String.concat["_ArcSine_"]
172            val (vA,A)=assgn(opp,[nU],name,realTy)
173            in
174                (vA,code@A)
175          end          end
176    
177    

Legend:
Removed from v.2924  
changed lines
  Added in v.3138

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