diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rwxr-xr-x | gcc/testsuite/ada/acats/run_all.sh | 23 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/support/impbit.adb | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/support/macro.dfs | 6 |
4 files changed, 39 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f8a7701..c7267d8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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*-*-*. diff --git a/gcc/testsuite/ada/acats/run_all.sh b/gcc/testsuite/ada/acats/run_all.sh index 0df7386..95cd7e8 100755 --- a/gcc/testsuite/ada/acats/run_all.sh +++ b/gcc/testsuite/ada/acats/run_all.sh @@ -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 diff --git a/gcc/testsuite/ada/acats/support/impbit.adb b/gcc/testsuite/ada/acats/support/impbit.adb new file mode 100644 index 0000000..5e189b0 --- /dev/null +++ b/gcc/testsuite/ada/acats/support/impbit.adb @@ -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; diff --git a/gcc/testsuite/ada/acats/support/macro.dfs b/gcc/testsuite/ada/acats/support/macro.dfs index 000c1f8..8c37233 100644 --- a/gcc/testsuite/ada/acats/support/macro.dfs +++ b/gcc/testsuite/ada/acats/support/macro.dfs @@ -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. |