aboutsummaryrefslogtreecommitdiffstats
path: root/code/unix/Cons_gcc.pm
diff options
context:
space:
mode:
Diffstat (limited to 'code/unix/Cons_gcc.pm')
-rwxr-xr-xcode/unix/Cons_gcc.pm94
1 files changed, 47 insertions, 47 deletions
diff --git a/code/unix/Cons_gcc.pm b/code/unix/Cons_gcc.pm
index 1b24589..41df3fd 100755
--- a/code/unix/Cons_gcc.pm
+++ b/code/unix/Cons_gcc.pm
@@ -1,47 +1,47 @@
-#
-# Some utilities to handle gcc compiler setup
-#
-
-package Cons_gcc;
-
-# pass the compiler name
-# returns an array, first element is 2 for 2.x 3 for 3.x, then full version, then machine info
-sub get_gcc_version
-{
- my @ret;
- my ($CC) = @_;
- my $version=`$CC --version | head -1`;
- chop($version);
- my $machine=`$CC -dumpmachine`;
- chop($machine);
- if($version =~ '2\.[0-9]*\.[0-9]*')
- {
- push @ret, '2';
- } else {
- push @ret, '3';
- }
- push @ret, $version;
- push @ret, $machine;
- return @ret;
-}
-
-# http://ccache.samba.org/
-# check ccache existence and path
-# returns an array, first element 0 / 1, then path
-sub get_ccache
-{
- my @ret;
- $ccache_path=`which ccache`;
- chop($ccache_path);
- if(-x $ccache_path)
- {
- push @ret, '1';
- push @ret, $ccache_path;
- return @ret;
- }
- push @ret, '0';
- return @ret;
-}
-
-# close package
-1;
+#
+# Some utilities to handle gcc compiler setup
+#
+
+package Cons_gcc;
+
+# pass the compiler name
+# returns an array, first element is 2 for 2.x 3 for 3.x, then full version, then machine info
+sub get_gcc_version
+{
+ my @ret;
+ my ($CC) = @_;
+ my $version=`$CC --version | head -1`;
+ chop($version);
+ my $machine=`$CC -dumpmachine`;
+ chop($machine);
+ if($version =~ '2\.[0-9]*\.[0-9]*')
+ {
+ push @ret, '2';
+ } else {
+ push @ret, '3';
+ }
+ push @ret, $version;
+ push @ret, $machine;
+ return @ret;
+}
+
+# http://ccache.samba.org/
+# check ccache existence and path
+# returns an array, first element 0 / 1, then path
+sub get_ccache
+{
+ my @ret;
+ $ccache_path=`which ccache`;
+ chop($ccache_path);
+ if(-x $ccache_path)
+ {
+ push @ret, '1';
+ push @ret, $ccache_path;
+ return @ret;
+ }
+ push @ret, '0';
+ return @ret;
+}
+
+# close package
+1;