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

SCM Repository

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

Diff of /branches/vis12-cl/src/compiler/cl-target/cl-target.sml

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

revision 3121, Tue Mar 24 08:58:26 2015 UTC revision 3122, Tue Mar 24 09:08:24 2015 UTC
# Line 407  Line 407 
407                  ("DIDEROT_TARGET", Properties.targetDef props)                  ("DIDEROT_TARGET", Properties.targetDef props)
408                ]                ]
409    
         fun condCons (true, x, xs) = x::xs  
           | condCons (false, _, xs) = xs  
   
410          fun verbFrag (props : props, parFrag, seqFrag, subs) =          fun verbFrag (props : props, parFrag, seqFrag, subs) =
411                CL.verbatimDcl [if (#parallel props) then parFrag else seqFrag] subs                CL.verbatimDcl [if (#parallel props) then parFrag else seqFrag] subs
412    
413          fun compile (props : props, basename) = let          fun compile (props : props, basename) = let
414              (* generate the C compiler flags *)              (* generate the C compiler flags *)
415                val cflags = ["-I" ^ Paths.diderotInclude(), "-I" ^ Paths.teemInclude()]                val cflags = ["-I" ^ Paths.diderotInclude(), "-I" ^ Paths.teemInclude()]
416                val cflags = condCons (#parallel props, #pthread Paths.cflags, cflags)                val cflags = #cl Paths.cflags :: cflags
417                val cflags = if #debug props                val cflags = if #debug props
418                      then #debug Paths.cflags :: cflags                      then #debug Paths.cflags :: cflags
419                      else #ndebug Paths.cflags :: cflags                      else #ndebug Paths.cflags :: cflags

Legend:
Removed from v.3121  
changed lines
  Added in v.3122

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