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

SCM Repository

[diderot] Diff of /trunk/src/compiler/common/paths_sml.in
ViewVC logotype

Diff of /trunk/src/compiler/common/paths_sml.in

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

revision 1841, Fri Apr 13 23:52:32 2012 UTC revision 1842, Sat Apr 14 00:39:22 2012 UTC
# Line 42  Line 42 
42              in              in
43                 String.fields (fn #":" => true | _ => false) path                 String.fields (fn #":" => true | _ => false) path
44              end (* getPath *)              end (* getPath *)
45        fun findExe (paths, name) = (case PathUtil.findExe paths name  (* FIXME: won't need the isAbsolute check in 110.75 *)
46          fun findExe (paths, name) = if OS.Path.isAbsolute name
47                then name
48                else (case PathUtil.findExe paths name
49               of SOME p => p               of SOME p => p
50                | NONE => raise Fail(concat["unable to find ", name, " executable"])                | NONE => raise Fail(concat["unable to find ", name, " executable"])
51              (* end case *))              (* end case *))
# Line 63  Line 66 
66  (*          ndebug = "-march=native -O3 -DNDEBUG" *)  (* gcc complains about -march=native, even though the man page says it is supported *)  (*          ndebug = "-march=native -O3 -DNDEBUG" *)  (* gcc complains about -march=native, even though the man page says it is supported *)
67              ndebug = "-O3 -DNDEBUG"              ndebug = "-O3 -DNDEBUG"
68            }            }
69        val ld = let
70              val (cmd::args) = String.tokens Char.isSpace "@LD@"
71              val cmd = findExe (PATH, cmd)
72              in
73                String.concatWith " " (cmd :: args)
74              end
75      val extraLibs = {      val extraLibs = {
76              base = "@LIBM@",              base = "@LIBM@",
77              pthread = "@PTHREAD_LIBS@",              pthread = "@PTHREAD_LIBS@",

Legend:
Removed from v.1841  
changed lines
  Added in v.1842

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