X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Fada%2Fi-cstrin.ads;h=5e3494ed1b625d50553e119fb913f8d0451b239b;hp=5ea063ab0ef220ff9bddb7731fdb4441c69235cc;hb=1ca2dbd8f9ff34b6db00c538f27d59dd57482f04;hpb=2dd515a3d9bad2a2ec8d83bef34205340647103f

diff --git a/gcc/ada/i-cstrin.ads b/gcc/ada/i-cstrin.ads
index 5ea063ab0ef..5e3494ed1b6 100644
--- a/gcc/ada/i-cstrin.ads
+++ b/gcc/ada/i-cstrin.ads
@@ -97,6 +97,7 @@ package Interfaces.C.Strings is
 
 private
    type chars_ptr is access all Character;
+   pragma Convention (C, chars_ptr);
 
    pragma No_Strict_Aliasing (chars_ptr);
    --  Since this type is used for external interfacing, with the pointer