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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-target/gen-output.sml
[diderot] / branches / vis12 / src / compiler / c-target / gen-output.sml  
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-target/gen-output.sml

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

revision 1871, Fri May 11 20:10:32 2012 UTC revision 1872, Sun May 13 10:35:15 2012 UTC
# Line 99  Line 99 
99      val nV = CL.mkVar "n"      val nV = CL.mkVar "n"
100      val cpV = CL.mkVar "cp"      val cpV = CL.mkVar "cp"
101      val ipV = CL.mkVar "ip"      val ipV = CL.mkVar "ip"
102        val msgV = CL.mkVar "msg"
103      val offsetV = CL.mkVar "offset"      val offsetV = CL.mkVar "offset"
104      val nDataV = CL.mkVar "nData"      val nDataV = CL.mkVar "nData"
105      val nLengthsV = CL.mkVar "nLengths"      val nLengthsV = CL.mkVar "nLengths"
# Line 157  Line 158 
158            (* then *)            (* then *)
159              CL.mkBlock[              CL.mkBlock[
160                  CL.mkDeclInit(CL.charPtr, "msg", CL.mkApply("biffGetDone", [NRRD])),                  CL.mkDeclInit(CL.charPtr, "msg", CL.mkApply("biffGetDone", [NRRD])),
161                  CL.mkCall("biffMsgAdd", [CL.mkIndirect(wrldV, "errors"), CL.mkVar "msg"]),                  CL.mkCall("biffMsgAdd", [CL.mkIndirect(wrldV, "errors"), msgV]),
162                  CL.mkCall("FREE", [CL.mkVar "msg"]),                  CL.mkCall("FREE", [msgV]),
163                  CL.mkReturn(SOME(CL.mkVar "true"))                  CL.mkReturn(SOME(CL.mkVar "true"))
164                ]                ]
165            (* endif*))            (* endif*))
# Line 371  Line 372 
372                        CL.mkIfThenElse(                        CL.mkIfThenElse(
373                          CL.mkApply(N.outputGet(tgt, name), [wrldV, nLengthsV, nDataV]),                          CL.mkApply(N.outputGet(tgt, name), [wrldV, nLengthsV, nDataV]),
374                        (* then *)                        (* then *)
375                            error ("Error getting nrrd data: %s\n", CL.mkApply("biffMsgStrGet", [CL.mkIndirect(wrldV, "errors")])),                            error ("Error getting nrrd data: %s\n",
376                                CL.mkApply("biffMsgStrGet", [CL.mkIndirect(wrldV, "errors")])),
377                        (* else *)                        (* else *)
378                          CL.mkIfThen(                          CL.mkIfThen(
379                            CL.mkBinOp(                            CL.mkBinOp(
# Line 396  Line 398 
398                        CL.mkIfThenElse(                        CL.mkIfThenElse(
399                          CL.mkApply(N.outputGet(tgt, name), [wrldV, nDataV]),                          CL.mkApply(N.outputGet(tgt, name), [wrldV, nDataV]),
400                        (* then *)                        (* then *)
401                            error ("Error getting nrrd data: %s\n", CL.mkApply("biffMsgStrGet", [CL.mkIndirect(wrldV, "errors")])),                            error ("Error getting nrrd data: %s\n",
402                                CL.mkApply("biffMsgStrGet", [CL.mkIndirect(wrldV, "errors")])),
403                        (* else *)                        (* else *)
404                          CL.mkIfThen(                          CL.mkIfThen(
405                            CL.mkApply("nrrdSave", [                            CL.mkApply("nrrdSave", [
Legend:
Removed from v.1871  
changed lines
  Added in v.1872
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge