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 551, Fri Feb 18 15:02:25 2011 UTC revision 552, Fri Feb 18 15:09:08 2011 UTC
# Line 54  Line 54 
54      fun imageDataTy (ImageInfo.ImgInfo{ty=([], rTy), ...}) = T_Ptr rTy      fun imageDataTy (ImageInfo.ImgInfo{ty=([], rTy), ...}) = T_Ptr rTy
55      val stringTy = T_String      val stringTy = T_String
56    
57      val statusTy = CL.T_Named "Status_t"      val statusTy = CL.T_Named RN.statusTy
58    
59    (* convert target types to CLang types *)    (* convert target types to CLang types *)
60      fun cvtTy T_Bool = CLang.T_Named "bool"      fun cvtTy T_Bool = CLang.T_Named "bool"
# Line 345  Line 345 
345          fun define (Prog{strands, ...}, strandId) = let          fun define (Prog{strands, ...}, strandId) = let
346                val strand = Strand{                val strand = Strand{
347                        name = strandId,                        name = strandId,
348                        tyName = strandId ^ "_t",                        tyName = RN.strandTy strandId,
349                        state = ref [],                        state = ref [],
350                        code = ref []                        code = ref []
351                      }                      }

Legend:
Removed from v.551  
changed lines
  Added in v.552

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