Subversion Repositories DevTools

Rev

Rev 2635 | Rev 2757 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2635 Rev 2652
Line 244... Line 244...
244 
    'pcv_wce'                       => 'IgnoreMakeProject', # MakeProject Tested on at least one
 244 
    'pcv_wce'                       => 'IgnoreMakeProject', # MakeProject Tested on at least one
245 
    'WinCEDeviceUpgrade'            => 'IgnoreMakeProject', # MakeProject Tested on at least one
 245 
    'WinCEDeviceUpgrade'            => 'IgnoreMakeProject', # MakeProject Tested on at least one
246 
    'scil'                          => 'LimitProjectBase=/DPG_SWCode/projects/seattle/tvm',
 246 
    'scil'                          => 'LimitProjectBase=/DPG_SWCode/projects/seattle/tvm',
247 
    'daf_br_compiler_support'       => 'ForceProjectBase=/DPG_SWBase/daf_br_compiler/support',
 247 
    'daf_br_compiler_support'       => 'ForceProjectBase=/DPG_SWBase/daf_br_compiler/support',
248 
    'daf_br_th'                     => 'IgnoreBadPath,all,IgnoreMakeProject', # MakeProject Tested. Bad Paths not used
 248 
    'daf_br_th'                     => 'IgnoreBadPath,all,IgnoreMakeProject', # MakeProject Tested. Bad Paths not used
249 
 
 - 
 
- 
 
 249 
    'linux_kernel_bcp4600'          => 'ForceProjectBase=/LMOS/linux/kernel',
- 
 
 250 
    'linux_kernel_viper'            => 'ForceProjectBase=/LMOS/linux/kernel',
- 
 
 251 
    'linux_kernel_cobra'            => 'ForceProjectBase=/LMOS/linux/kernel',
250 
 
 252 
 
251 
 
 253 
 
252 
    'icl'                   => 'IgnoreProjectBase,',
 254 
    'icl'                   => 'IgnoreProjectBase,',
253 
    'itso'                  => 'IgnoreProjectBase,',
 255 
    'itso'                  => 'IgnoreProjectBase,',
254 
#    'daf_osa_mos'           => 'IgnoreProjectBase,',
 256 
#    'daf_osa_mos'           => 'IgnoreProjectBase,',
Line 1223... Line 1225...
1223 
            return 0 if ( ($pruneMode == 1) && ! $versions{$entry}{isaRipple} );
 1225 
            return 0 if ( ($pruneMode == 1) && ! $versions{$entry}{isaRipple} );
1224 
            return 0 if ( exists $versions{$entry}{keepRecent} && $versions{$entry}{keepRecent} );
 1226 
            return 0 if ( exists $versions{$entry}{keepRecent} && $versions{$entry}{keepRecent} );
1225 
            return 1;
 1227 
            return 1;
1226 
        }
 1228 
        }
1227 
 
 1229 
 
- 
 
 1230 
 
- 
 
 1231 
        #
- 
 
 1232 
        #   Determine a list of entries to be pruned
- 
 
 1233 
        #   Done in two steps so that we can skip the pruning if its only a small number
- 
 
 1234 
        #
- 
 
 1235 
        my @pruneList;
1228 
        foreach my $entry ( keys(%versions) )
 1236 
        foreach my $entry ( keys(%versions) )
1229 
        {
 1237 
        {
- 
 
 1238 
            push ( @pruneList, $entry ) if ( pruneMe($entry) );
- 
 
 1239 
        }
- 
 
 1240 
 
- 
 
 1241 
 
- 
 
 1242 
        #
- 
 
 1243 
        #   If the list is very small then just import all of them
1230 
#last;
 1244 
        #
- 
 
 1245 
        if ( scalar @pruneList < 10 )
- 
 
 1246 
        {
- 
 
 1247 
            Message ("Retaining pruned entries - low count:" . scalar @pruneList );
- 
 
 1248 
            @pruneList = ();
- 
 
 1249 
        } else {
- 
 
 1250 
            my $total = scalar keys %versions;
- 
 
 1251 
 
- 
 
 1252 
            if ( scalar @pruneList < ($total / 15))
- 
 
 1253 
            {
- 
 
 1254 
                Message ("Retaining pruned entries - low percentage of $total:" . scalar @pruneList );
1231 
            next unless ( pruneMe($entry) );
 1255 
                @pruneList = ();
- 
 
 1256 
            }
- 
 
 1257 
        }
- 
 
 1258
- 
 
 1259 
 
- 
 
 1260 
        foreach my $entry (@pruneList )
- 
 
 1261 
        {
1232 
#print "--- Prune: $versions{$entry}{vname}\n";
 1262 
#print "--- Prune: $versions{$entry}{vname}\n";
1233 
 
 1263 
 
1234 
            # Delete the current node
 1264 
            # Delete the current node
1235 
            #
 1265 
            #
1236 
            my @newNext;
 1266 
            my @newNext;