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 3898, Mon May 23 03:34:31 2016 UTC revision 3899, Mon May 23 13:07:16 2016 UTC
# Line 86  Line 86 
86      fun dualState (p : t) = (#hasCom p)      fun dualState (p : t) = (#hasCom p)
87    
88    (* convert a target specification to the name of the runtime library *)    (* convert a target specification to the name of the runtime library *)
89      fun runtimeName (spec : t) = let      fun runtimeLibName (spec : t) = let
90            val l = if #debug spec then ["-debug.o"] else [".o"]            val l = if #debug spec then ["-debug.o"] else [".o"]
91            val t = (case #platform spec            val t = (case #platform spec
92                   of SEQUENTIAL => "-seq"                   of SEQUENTIAL => "-seq"
# Line 113  Line 113 
113    (* return the CPP target definition for the target *)    (* return the CPP target definition for the target *)
114      fun targetDef (p : t) = "DIDEROT_TARGET_" ^ TargetOptions.platformToString (#platform p)      fun targetDef (p : t) = "DIDEROT_TARGET_" ^ TargetOptions.platformToString (#platform p)
115    
116      (* qualify a C function or type name by the target namespace *)
117        fun qualifyCId name (spec : t) = #namespace spec ^ name
118        fun qualifyCId' base (spec : t, name) = concat[#namespace spec, base, "_", name]
119    
120    end    end

Legend:
Removed from v.3898  
changed lines
  Added in v.3899

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