CVS difference for acats/cxb/cxb30061.am

Differences between 1.1 and version 1.2
Log of other versions for file 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