Attachment 148760 Details for Bug 230000 – Shell testcase from bauerman@br.ibm.com, requires gcc-4.2/4.3+

Shell testcase from bauerman@br.ibm.com, requires gcc-4.2/4.3+

dfp-test.sh (text/plain), 2.49 KB, created by Jan Kratochvil on 2007-02-25 18:36:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jan Kratochvil

Created: 2007-02-25 18:36:48 UTC

Size: 2.49 KB

patch

obsolete

>#!/bin/bash
>#
># Testcase to check if GDB is able to disassemble
># Decimal Floating Point instructions.
>#
># History
># 2007-01-27    thiagoju@br.ibm.com     First version
>
>src=/tmp/tfd$$.c
>exe=/tmp/tfd$$
>gdbout=/tmp/tfd$$.gdbout
>
>function cleanup
>{
>  first=1
>  for str in "$@" ; do
>    if [ $first != 1 ] && [ -n "$str" ]; then
>      echo $str
>    fi
>    first=0
>  done
>  rm -f $src $exe $gdbout
>  exit $1
>}
>
># create source code file
>cat > $src << "EOF"
>_Decimal128 td1, td2, td3;
>_Decimal64 dd1, dd2, dd3;
>int result;
>
>void addtd (void)
>{
>  td1 = td2 + td3;
>}
>
>void adddd (void)
>{
>  dd1 = dd2 + dd3;
>}
>
>void subtd (void)
>{
>  td1 = td2 - td3;
>}
>
>void subdd (void)
>{
>  dd1 = dd2 - dd3;
>}
>
>void multd (void)
>{
>  td1 = td2 * td3;
>}
>
>void muldd (void)
>{
>  dd1 = dd2 * dd3;
>}
>
>void divtd (void)
>{
>  td1 = td2 / td3;
>}
>
>void divdd (void)
>{
>  dd1 = dd2 / dd3;
>}
>
>void eqtd (void)
>{
>  result = td1 == td2;
>}
>
>void eqdd (void)
>{
>  result = dd1 == dd2;
>}
>
>void netd (void)
>{
>  result = td1 != td2;
>}
>
>void nedd (void)
>{
>  result = dd1 != dd2;
>}
>
>void gttd (void)
>{
>  result = td1 > td2;
>}
>
>void gtdd (void)
>{
>  result = dd1 > dd2;
>}
>
>void getd (void)
>{
>  result = td1 >= td2;
>}
>
>void gedd (void)
>{
>  result = dd1 >= dd2;
>}
>
>void lttd (void)
>{
>  result = td1 < td2;
>}
>
>void ltdd (void)
>{
>  result = dd1 < dd2;
>}
>
>void letd (void)
>{
>  result = td1 <= td2;
>}
>
>void ledd (void)
>{
>  result = dd1 <= dd2;
>}
>
>int main (void)
>{
>  addtd ();
>  adddd ();
>  subtd ();
>  subdd ();
>  multd ();
>  muldd ();
>  divtd ();
>  divdd ();
>  eqtd ();
>  eqdd ();
>  netd ();
>  nedd ();
>  gttd ();
>  gtdd ();
>  getd ();
>  gedd ();
>  lttd ();
>  ltdd ();
>  letd ();
>  ledd ();
>  return 0;
>}
>EOF
>
>if ! msg=`gcc -O2 -mcpu=power6 -m64 -o $exe $src 2>&1` ; then
>  cleanup 1 "Error, cannot compile file $src:" "$msg"
>fi
>
># run gdb and disassemble functions which should have DFP instructions
>gdb $exe > $gdbout << "EOF"
>disassemble addtd
>disassemble adddd
>disassemble subtd
>disassemble subdd
>disassemble multd
>disassemble muldd
>disassemble divtd
>disassemble divdd
>disassemble eqtd
>disassemble eqdd
>disassemble netd
>disassemble nedd
>disassemble gttd
>disassemble gtdd
>disassemble getd
>disassemble gedd
>disassemble lttd
>disassemble ltdd
>disassemble letd
>disassemble ledd
>quit
>EOF
>
>instructions="daddq dadd dsubq dsub dmulq dmul ddivq ddiv dcmpuq dcmpu"
>
>for instr in $instructions; do
>  if ! egrep -q "\W${instr}\W" $gdbout; then
>    cleanup 2 "Error, did not locate the $instr instruction in executable $exe."
>  fi
>done
>
>cleanup 0 "Decimal Floating Point instructions were found. Testcase succeeded."

Actions: View

Attachments on bug 230000: 148760