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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/codegen/target-spec.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/codegen/target-spec.sml

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

revision 3923, Wed Jun 1 17:18:20 2016 UTC revision 3924, Fri Jun 3 17:30:27 2016 UTC
# Line 118  Line 118 
118    (* return the CPP target definition for the target *)    (* return the CPP target definition for the target *)
119      fun targetDef (p : t) = "DIDEROT_TARGET_" ^ TargetOptions.platformToString (#platform p)      fun targetDef (p : t) = "DIDEROT_TARGET_" ^ TargetOptions.platformToString (#platform p)
120    
121    (* qualify a C function or type name by the target namespace *)    (* qualify a C function or type name by the target namespace, but only for libraries *)
122      fun qualifyCId name (spec : t) = #namespace spec ^ name      fun qualifyCId name (spec : t) =
123      fun qualifyCId' base (spec : t, name) = concat[#namespace spec, base, "_", name]            if (#exec spec) then name else concat[#namespace spec, "_", name]
124        fun qualifyCId' base (spec : t, name) =
125              if (#exec spec)
126                then concat[base, "_", name]
127                else concat[#namespace spec, "_", base, "_", name]
128    
129    end    end

Legend:
Removed from v.3923  
changed lines
  Added in v.3924

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