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, 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]