OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

run_all.sh: Handle cd2a83c, cd2a91c (target_bit) and ad8011a (target_insn).

Browse Source 
2004-04-24  Laurent GUERBY <laurent@guerby.net>

	* ada/acats/run_all.sh: Handle cd2a83c, cd2a91c (target_bit)
	and ad8011a (target_insn).
	* ada/acats/support/macro.dfs: Likewise.
	* ada/acats/support/impbit.adb: New file.

From-SVN: r81158
This commit is contained in:
Laurent GUERBY 2004-04-25 11:57:10 +00:00 committed by Laurent Guerby
parent 39ba1719f7
commit acde5ecb01
4 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2004-04-24 Laurent GUERBY <laurent@guerby.net>
* ada/acats/run_all.sh: Handle cd2a83c, cd2a91c (target_bit)
and ad8011a (target_insn).
* ada/acats/support/macro.dfs: Likewise.
* ada/acats/support/impbit.adb: New file.
2004-04-23 Ulrich Weigand <uweigand@de.ibm.com>
* gcc.dg/const-elim-1.c: XFAIL on s390*-*-*.

23
gcc/testsuite/ada/acats/run_all.sh
View File

@ -88,9 +88,32 @@ cd $dir/support
cp $testdir/support/*.ada $testdir/support/*.a $testdir/support/*.tst $dir/support
# Find out the size in bit of an address on the target
target_gnatmake $testdir/support/impbit.adb >> $dir/acats.log 2>&1
target_run $dir/support/impbit > $dir/support/impbit.out 2>&1
target_bit=`cat $dir/support/impbit.out`
display target_bit="$target_bit"
# Find out a suitable asm statement
# Adapted from configure.ac gcc_cv_as_dwarf2_debug_line
case "$target" in
ia64*-*-* | s390*-*-*)
target_insn="nop 0"
;;
mmix-*-*)
target_insn="swym 0"
;;
*)
target_insn="nop"
;;
esac
display target_insn="$target_insn"
sed -e "s,ACATS4GNATDIR,$dir,g" \
< $testdir/support/impdef.a > $dir/support/impdef.a
sed -e "s,ACATS4GNATDIR,$dir,g" \
-e "s,ACATS4GNATBIT,$target_bit,g" \
-e "s,ACATS4GNATINSN,$target_insn,g" \
< $testdir/support/macro.dfs > $dir/support/MACRO.DFS
sed -e "s,ACATS4GNATDIR,$dir,g" \
< $testdir/support/tsttests.dat > $dir/support/TSTTESTS.DAT

6
gcc/testsuite/ada/acats/support/impbit.adb Normal file
View File

@ -0,0 +1,6 @@
with System;
with Ada.Text_IO;
procedure Impbit is
begin
Ada.Text_IO.Put_Line (System.Address'Size'Img);
end Impbit;

6
gcc/testsuite/ada/acats/support/macro.dfs
View File

@ -99,7 +99,7 @@ BLANKS
-- AN INTEGER LITERAL WHOSE VALUE IS THE MINIMUM NUMBER OF BITS
-- SUFFICIENT TO HOLD ANY VALUE OF AN ACCESS TYPE.
-- USED IN: CD2A83C BD2A02A
ACC_SIZE 32
ACC_SIZE ACATS4GNATBIT
-- $ALIGNMENT
-- A VALUE THAT IS LEGITIMATE FOR USE IN A RECORD ALIGNMENT CLAUSE.
@ -220,7 +220,7 @@ LESS_THAN_DURATION -86_400.0
-- MACHINE_CODE. IF THE IMPLEMENTATION DOES NOT SUPPORT MACHINE
-- CODE THEN USE THE ADA NULL STATEMENT (I.E. NULL; ).
-- USED IN: AD8011A BD8001A BD8002A BD8004A BD8004B
MACHINE_CODE_STATEMENT Asm_Insn'(Asm ("nop"));
MACHINE_CODE_STATEMENT Asm_Insn'(Asm ("ACATS4GNATINSN"));
-- $MAX_INT
-- AN INTEGER LITERAL WHOSE VALUE IS SYSTEM.MAX_INT.
@ -271,7 +271,7 @@ RECORD_NAME Asm_Insn
-- AN INTEGER LITERAL WHOSE VALUE IS THE NUMBER OF BITS REQUIRED TO
-- HOLD A TASK OBJECT.
-- USED IN: CD2A91C
TASK_SIZE 32
TASK_SIZE ACATS4GNATBIT
-- $TASK_STORAGE_SIZE
-- THE NUMBER OF STORAGE UNITS REQUIRED FOR A TASK ACTIVATION.