Subversion Repositories DevTools

Rev

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

Rev 379 Rev 381
Line 4445... Line 4445...
4445
    my ($shared, $fname) = @_;
4445
    my ($shared, $fname) = @_;
4446
    my ($file, $ext, $obj, $srcfile, $delete_obj);
4446
    my ($file, $ext, $obj, $srcfile, $delete_obj);
4447
 
4447
 
4448
    #.. Object specified - add to object list.
4448
    #.. Object specified - add to object list.
4449
    #
4449
    #
4450
    $file = StripExt($fname);                   # file name, without extension
4450
    $file = StripDirExt($fname);                # file name, without extension or Dir
4451
    $ext  = StripFile($fname);                  # extension
4451
    $ext  = StripFile($fname);                  # extension
4452
 
4452
 
4453
    if ($shared) {
4453
    if ($shared) {
4454
        $obj = "$shared/$file";                 # library specific subdir
4454
        $obj = "$shared/$file";                 # library specific subdir
4455
    } else {
4455
    } else {
Line 8987... Line 8987...
8987
        $src  = $OBJSOURCE{ $i };
8987
        $src  = $OBJSOURCE{ $i };
8988
        $sname = StripDir( $src );
8988
        $sname = StripDir( $src );
8989
        $ext  = StripFile( $src );
8989
        $ext  = StripFile( $src );
8990
        $ext = lc($ext)
8990
        $ext = lc($ext)
8991
            if ( $::ScmHost ne "Unix" );
8991
            if ( $::ScmHost ne "Unix" );
8992
        $type = $ScmSourceTypes{ $ext }
8992
        $type = ($ScmSourceTypes{ $ext } || '')
8993
            unless (( $type = $SRC_TYPE{ $sname }) );
8993
            unless (( $type = $SRC_TYPE{ $sname }) );
8994
 
8994
 
8995
        #
8995
        #
8996
        #   Object source is an object file
8996
        #   Object source is an object file
8997
        #   No need the generate the object, just create makefile rule
8997
        #   No need the generate the object, just create makefile rule