Subversion Repositories DevTools

# Function        : new_platform

#

# Description     : Called when a new platform is being created

#                   The function can extend the build information

#

#                   At the moment it simply removes the build from unsuitable

#                   machine types.

#

# Inputs          : $pInfo          - Reference to the platform build info hash

#

# Returns         : Nothing yet

#

sub new_platform

{

    my $class = shift;              # Not really a class, but its called like a class

    my $pInfo = shift;

    #

    #   Ignore this platform if there is no way that it can be built on the

    #   current machine.

    #

    unless ( PlatformConfig::targetHasTag( 'CSHARP2008', 'KNOWN' ) )

    {

        Verbose ("CSHARP2008 will not build on this machine type: $::GBE_MACHTYPE");

        $pInfo->{NOT_AVAILABLE} = 1;

        return;

    }

}

#-------------------------------------------------------------------------------