Subversion Repositories DevTools

###############################################################################
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
#
# File:         PLATFORM/SK20
#
# Contents:     SK20 support
#
###############################################################################
#

SK20Init();

sub SK20Init
{
#   Unix platform definitions
#
    $HOST_KERNEL    = "LINUX";
    $HOST_CPU       = "armiwmmxt";
    $HOST_PROD      = ""                if ( $HOST_PROD eq "" );
    $HOST_FAM       = "LINUX_ARM"       if ( $HOST_FAM eq "" );


#   Toolset and generic platforms
#   Support multiple versions of the compiler
#
    my @FilteredPlatformArgs = ();
    my $crossAliasVersion;
    my $crossAlias;
    foreach $_ ( @::ScmPlatformArgs ) {
        if ( m~--Version=(.*)~ ) {
            $crossAliasVersion = $1;
        } else {
            push @FilteredPlatformArgs;
        }
    }
    @::ScmPlatformArgs = @FilteredPlatformArgs;
    unless ($crossAliasVersion) {
        Warning ("SK20: No SDK version specified. Using oldest version.");
        $crossAliasVersion = '1.0.0';
    }

    #   Convert version number into a compiler name
    #
    my %vlookup = (
                   '4.1.0.0'    => 'arm-unknown-linux-gnueabi-sk20-4.1.0.0',
                   '1.0.0'      => 'arm-iwmmxt-linux-gnueabi',
    );
    $crossAlias = $vlookup{$crossAliasVersion};
    Error ("SK20: Unknown SDK Version: $crossAliasVersion") unless defined $crossAlias;

    Toolset( '*', 'gcc.pl', '--Target=SK20 gnueabi ' . $crossAliasVersion , '--CrossAlias=' . $crossAlias );
    PlatformRequire( "unix" );
}