This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [PATCH][Ada] XFAIL ACATS c380004 and c953002, remove parts ofcxb3012.a


Grrr**2, ACAA sent out the modification for cxb3012.a about
4 hours after I sent my patch:

http://www.adaic.org/compilers/acats/2.5/mods/MOD_LIST.TXT

<<
January 7, 2005

Changes from the last list:

C392014 includes an illegal discriminant constraint on line 181. Since
the constraint is not used by the test, it has been removed.

C92005B assumes that the storage size of a task will fit in the range of
Integer; this is not guaranteed by the Standard.

CXB3012 checks behavior modified by AI-242 (which was approved by WG9 in
June 2002). The test was modified to allow either behavior. (Ultimately,
of course, only the new behavior will be allowed.)

CXD4009 contains a race condition; the T tasks may make their second
entry call before the Checker task finished processing the first set.
The test was modified to use separate entries for the two subtests.
>>

Will provide a new patch later this week-end.

Laurent

On Sat, 2005-01-08 at 00:56 +0100, Laurent GUERBY wrote:
> Grrr, forgot half of the patch.
> 
> Laurent
> 
> Index: ada/acats/tests/cxb/cxb3012.a
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/testsuite/ada/acats/tests/cxb/cxb3012.a,v
> retrieving revision 1.1
> diff -u -r1.1 cxb3012.a
> --- ada/acats/tests/cxb/cxb3012.a       27 Oct 2003 11:28:58 -0000      1.1
> +++ ada/acats/tests/cxb/cxb3012.a       7 Jan 2005 23:55:01 -0000
> @@ -203,61 +203,6 @@
>        end;
>        ICS.Free(TC_chars_ptr);
> 
> -
> -
> -      -- Check that the version of Procedure Update with a String rather
> -      -- than a char_array parameter behaves in the manner described above,
> -      -- but with the character values in the String overwriting the char
> -      -- values in Item.
> -      --
> -      -- Note: In each of the cases below, the String parameter Str is
> -      --       treated as if it were nul terminated, which means that the
> -      --       char_array pointed to by TC_chars_ptr will be "shortened"
> -      --       so that it ends after the last character of the Str
> -      --       parameter.
> -
> -      TC_chars_ptr := ICS.New_Char_Array(TC_char_array);
> -      ICS.Update(TC_chars_ptr, 1, TC_String_4, False);
> -
> -      if ICS.Value(TC_chars_ptr) /= TC_Result_String_4 then
> -         Report.Failed("Incorrect result from Procedure Update - 5");
> -      end if;
> -      ICS.Free(TC_chars_ptr);
> -
> -
> -      TC_chars_ptr := ICS.New_Char_Array(TC_char_array);
> -      ICS.Update(Item   => TC_chars_ptr,
> -                 Offset => 0,
> -                 Str    => TC_String_5);
> -
> -      if ICS.Value(TC_chars_ptr) /= TC_Result_String_5 then
> -         Report.Failed("Incorrect result from Procedure Update - 6");
> -      end if;
> -      ICS.Free(TC_chars_ptr);
> -
> -
> -      TC_chars_ptr := ICS.New_Char_Array(TC_char_array);
> -      ICS.Update(TC_chars_ptr,
> -                 3,
> -                 Str    => TC_String_6,
> -                 Check  => True);
> -
> -      if ICS.Value(TC_chars_ptr) /= TC_Result_String_6 then
> -         Report.Failed("Incorrect result from Procedure Update - 7");
> -      end if;
> -      ICS.Free(TC_chars_ptr);
> -
> -
> -      TC_chars_ptr := ICS.New_Char_Array(TC_char_array);
> -      ICS.Update(TC_chars_ptr, 0, TC_String_9, True);
> -
> -      if ICS.Value(TC_chars_ptr) /= TC_String_9 then
> -         Report.Failed("Incorrect result from Procedure Update - 8");
> -      end if;
> -      ICS.Free(TC_chars_ptr);
> -
> -
> -
>        -- Check that both of the above versions of Procedure Update will
>        -- propagate Update_Error if Check is True, and if the length of
>        -- the new chars in Chars, when overlaid starting from position
> 


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]