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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml

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

revision 5115, Tue Jul 18 19:30:09 2017 UTC revision 5116, Tue Jul 18 21:32:07 2017 UTC
# Line 361  Line 361 
361                    CL.mkExpStm(outString(outsV, "}")),                    CL.mkExpStm(outString(outsV, "}")),
362                    mkReturn outsV                    mkReturn outsV
363                  ]                  ]
364          (* get a sequence element; for booleans, we convert to a string *)          (* get a sequence element *)
365            fun getElem ix = let            fun getElem ix = CL.mkSubscript(seqV, ix)
                 val e = CL.mkSubscript(seqV, ix)  
                 in  
                   case elemTy  
                    of Ty.BoolTy => CL.mkCond(e, CL.mkStr "true", CL.mkStr "false")  
                     | _ => e  
                   (* end case *)  
                 end  
366            val body = if (size > 0)            val body = if (size > 0)
367                  then CL.mkExpStm(output(outsV, getElem(CL.mkInt 0))) ::                  then CL.mkExpStm(output(outsV, getElem(CL.mkInt 0))) ::
368                    CL.mkFor(                    CL.mkFor(

Legend:
Removed from v.5115  
changed lines
  Added in v.5116

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