Subversion Repositories openrisc

#!/bin/sh

# Worker script for libgcc/Makefile.in

# Generate lists of fixed-point labels, funcs, modes, from, to.

# Usage:

#    gen-fixed.sh arith labels

#    gen-fixed.sh arith funcs

#    gen-fixed.sh arith modes

#    gen-fixed.sh conv labels

#    gen-fixed.sh conv funcs

#    gen-fixed.sh conv from

#    gen-fixed.sh conv to

fixed_sfract_modes="QQ HQ SQ DQ TQ HA SA DA TA"

fixed_ufract_modes="UQQ UHQ USQ UDQ UTQ UHA USA UDA UTA"

fixed_fract_modes="$fixed_sfract_modes $fixed_ufract_modes"

fixed_signed_modes="QI HI SI DI TI SF DF"

fixed_unsigned_modes="UQI UHI USI UDI UTI"

fixed_func_names="_add _sub _neg _mul _mulhelper _divhelper _ashl _ashlhelper _cmp _saturate1 _saturate2"

fixed_sfunc_names="_ssadd _sssub _ssneg _ssmul _ssdiv _div _ssashl _ashr"

fixed_ufunc_names="_usadd _ussub _usneg _usmul _usdiv _udiv _usashl _lshr"

# emit the function information

# $1 = output type selector

# $2 = base function name

# $3 = from mode

# $4 = to mode

emit ()

{

    if [ "$3" != "$4" ]; then

        case "$1" in

          labels)

            echo $2 ;;

          from | modes)

            echo $3 ;;

          to)

            echo $4 ;;

          funcs)

            echo $2$3$4 ;;

        esac

    fi

}

case "$1" in

  arith)

    for n in $fixed_func_names; do

        for m in $fixed_fract_modes; do

            emit $2 $n $m

        done

    done

    for n in $fixed_sfunc_names; do

        for m in $fixed_sfract_modes; do

            emit $2 $n $m

        done

    done

    for n in $fixed_ufunc_names; do

        for m in $fixed_ufract_modes; do

            emit $2 $n $m

        done

    done

    ;;

  conv)

    for f in $fixed_fract_modes; do

        for t in $fixed_fract_modes $fixed_signed_modes; do

            emit $2 _fract $f $t

        done

    done

    for f in $fixed_signed_modes; do

        for t in $fixed_fract_modes; do

            emit $2 _fract $f $t

        done

    done

    for f in $fixed_fract_modes $fixed_signed_modes; do

        for t in $fixed_fract_modes; do

            emit $2 _satfract $f $t

        done

    done

    for f in $fixed_fract_modes; do

        for t in $fixed_unsigned_modes; do

            emit $2 _fractuns $f $t

        done

    done

    for f in $fixed_unsigned_modes; do

        for t in $fixed_fract_modes; do

            emit $2 _fractuns $f $t

        done

    done

    for f in $fixed_unsigned_modes; do

        for t in $fixed_fract_modes; do

            emit $2 _satfractuns $f $t

        done

    done

    ;;

esac