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 575, Thu Mar 3 18:39:39 2011 UTC revision 576, Fri Mar 4 01:13:40 2011 UTC
# Line 307  Line 307 
307            | posToImgSpace (a, b) = invalid("posToImgSpace", [a, b])            | posToImgSpace (a, b) = invalid("posToImgSpace", [a, b])
308          fun inside ((pos, T_Vec n), (img, T_Image(d, _)), s) = let          fun inside ((pos, T_Vec n), (img, T_Image(d, _)), s) = let
309                val e = CL.mkApply(RN.inside d,                val e = CL.mkApply(RN.inside d,
310                      [pos, img, CL.mkInt(IntInf.fromInt n, CL.int32)])                      [pos, img, CL.mkInt(IntInf.fromInt s, CL.int32)])
311                in                in
312                  (e, T_Bool)                  (e, T_Bool)
313                end                end

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

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