[67717] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 67717
          http://trac.macports.org/changeset/67717
Author:   jmr at macports.org
Date:     2010-05-16 10:42:03 -0700 (Sun, 16 May 2010)
Log Message:
-----------
use full path to default compiler in selfupdate (#23095)

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2010-05-16 17:25:11 UTC (rev 67716)
+++ trunk/base/src/macports1.0/macports.tcl	2010-05-16 17:42:03 UTC (rev 67717)
@@ -2718,9 +2718,16 @@
                 ui_warn "Disabling readline support due to readline in /usr/local"
             }
 
+            set cc_arg ""
+            switch -glob -- $::macports::macosx_version {
+                10.{4,5} { set cc_arg "CC=/usr/bin/gcc-4.0 " }
+                10.6     { set cc_arg "CC=/usr/bin/gcc-4.2 " }
+                10.*     { set cc_arg "CC=/usr/bin/llvm-gcc-4.2 " }
+            }
+
             # do the actual configure, build and installation of new base
             ui_msg "Installing new MacPorts release in $prefix as $owner:$group; permissions $perms; Tcl-Package in $tclpackage\n"
-            if { [catch { system "cd $mp_source_path && ./configure $configure_args && make && make install" } result] } {
+            if { [catch { system "cd $mp_source_path && ${cc_arg}./configure $configure_args && make && make install" } result] } {
                 return -code error "Error installing new MacPorts base: $result"
             }
             if {[info exists updatestatus]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100516/efbd188e/attachment.html>