OSDN Git Service

2004-04-24 Laurent GUERBY <laurent@guerby.net>
authorguerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 25 Apr 2004 11:57:10 +0000 (11:57 +0000)
committerguerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 25 Apr 2004 11:57:10 +0000 (11:57 +0000)
* ada/acats/run_all.sh: Handle cd2a83ccd2a91c (target_bit)
and ad8011a (target_insn).
* ada/acats/support/macro.dfs: Likewise.
* ada/acats/support/impbit.adb: New file.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81158 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/ada/acats/run_all.sh
gcc/testsuite/ada/acats/support/impbit.adb [new file with mode: 0644]
gcc/testsuite/ada/acats/support/macro.dfs

index f8a7701..c7267d8 100644 (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*-*-*.
index 0df7386..95cd7e8 100755 (executable)
@@ -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 (file)
index 0000000..5e189b0
--- /dev/null
@@ -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;
index 000c1f8..8c37233 100644 (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.