CVS difference for acats/cxb/cxb30061.am
--- acats/cxb/cxb30061.am 1999/09/14 02:29:41 1.1
+++ acats/cxb/cxb30061.am 2009/03/31 02:47:10 1.2
@@ -85,6 +85,7 @@
-- 09 May 96 SAIC Incorporated reviewer comments for ACVC 2.1.
-- 13 Sep 99 RLB Replaced (bogus) Unchecked_Conversions with a
-- C function character generator.
+-- 30 Mar 09 RLB Eliminated ambiguity caused by new Ada 2005 routines.
--
--!
@@ -255,13 +256,15 @@
-- Ada.Interfaces.C.wide_nul character.
TC_Wide_String := "abcdefgh";
- if Is_Nul_Terminated(Item => To_C(TC_Wide_String, Append_Nul => False))
+ if Is_Nul_Terminated(Item =>
+ wchar_array'(To_C(TC_Wide_String, Append_Nul => False)))
then
Report.Failed("Incorrect result from Is_Nul_Terminated when no " &
"wide_nul wchar_t is present");
end if;
- if not Is_Nul_Terminated(To_C(TC_Wide_String, Append_Nul => True)) then
+ if not Is_Nul_Terminated(
+ wchar_array'(To_C(TC_Wide_String, Append_Nul => True))) then
Report.Failed("Incorrect result from Is_Nul_Terminated when the " &
"wide_nul wchar_t is present");
end if;
Questions? Ask the ACAA Technical Agent