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/c-target.sml
ViewVC logotype

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

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

revision 576, Fri Mar 4 01:13:40 2011 UTC revision 584, Tue Mar 8 15:30:03 2011 UTC
# Line 278  Line 278 
278    
279        (* conversions *)        (* conversions *)
280          fun toInt (e, T_Real) = (CL.mkCast(!RN.gIntTy, e), T_Int)          fun toInt (e, T_Real) = (CL.mkCast(!RN.gIntTy, e), T_Int)
281            | toInt (e, T_Vec n) = (CL.mkCast(CL.T_Named(RN.ivecTy n), e), ivecTy n)            | toInt (e, T_Vec n) = (CL.mkApply(RN.vecftoi n, [e]), ivecTy n)
282            | toInt e = invalid ("toInt", [e])            | toInt e = invalid ("toInt", [e])
283          fun toReal (e, T_Int) = (CL.mkCast(!RN.gRealTy, e), T_Real)          fun toReal (e, T_Int) = (CL.mkCast(!RN.gRealTy, e), T_Real)
284            | toReal e = invalid ("toReal", [e])            | toReal e = invalid ("toReal", [e])

Legend:
Removed from v.576  
changed lines
  Added in v.584

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