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

SCM Repository

[diderot] Diff of /trunk/src/compiler/c-target/tree-to-c.sml
ViewVC logotype

Diff of /trunk/src/compiler/c-target/tree-to-c.sml

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

revision 1130, Thu May 5 18:39:29 2011 UTC revision 1131, Thu May 5 18:53:48 2011 UTC
# Line 351  Line 351 
351                        [CL.mkIfThenElse(trExp(env, cond),                        [CL.mkIfThenElse(trExp(env, cond),
352                          trBlk(env, thenBlk),                          trBlk(env, thenBlk),
353                          trBlk(env, elseBlk))]                          trBlk(env, elseBlk))]
354                      | IL.S_New _ => raise Fail "new not supported yet" (* FIXME *)
355                    | IL.S_LoadImage(lhs, dim, name) => checkSts (fn sts => let                    | IL.S_LoadImage(lhs, dim, name) => checkSts (fn sts => let
356                        val lhs = lookup(env, lhs)                        val lhs = lookup(env, lhs)
357                        val name = trExp(env, name)                        val name = trExp(env, name)

Legend:
Removed from v.1130  
changed lines
  Added in v.1131

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