From: Samuel Tardieu <sam@rfc1149.net>
Date: Wed, 14 Nov 2007 15:14:45 +0000 (+0000)
Subject: i-cstrin.ads (chars_ptr): Make it a C convention type.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1e992e163d7d21027523b764f02836646036e184;p=gcc.git

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

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

From-SVN: r130180
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4f17de09053..cefae39a686 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -5,6 +5,8 @@
 
 	* 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
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