gcc/ada/

	* i-cstrin.ads (chars_ptr): Make it a C convention type.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130180 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4f17de0..cefae39 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -5,6 +5,8 @@
 
        * s-osinte-interix.ads: Removed.
 
 
        * s-osinte-interix.ads: Removed.
 

+       * i-cstrin.ads (chars_ptr): Make it a C convention type.
+

 2007-11-13  Samuel Tardieu  <sam@rfc1149.net>
 
        * a-tasatt.adb: Add a comment at the beginning of the package
 2007-11-13  Samuel Tardieu  <sam@rfc1149.net>
 
        * a-tasatt.adb: Add a comment at the beginning of the package

diff --git a/gcc/ada/i-cstrin.ads b/gcc/ada/i-cstrin.ads
index 5ea063a..5e3494e 100644 (file)
--- 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;
 
 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
 
    pragma No_Strict_Aliasing (chars_ptr);
    --  Since this type is used for external interfacing, with the pointer