diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-02 12:53:18 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-02 12:53:18 +0100 |
| commit | ca1ffed0e8ac8c0eddaf04b73e05a1af1e0dff32 (patch) | |
| tree | fcf852e9dd7a9c44aea85f37bc627c6f0395314e /gcc/ada/adaint.c | |
| parent | 04b80dbb54360ddefb7c7303063141d811bf3d16 (diff) | |
| download | gcc-ca1ffed0e8ac8c0eddaf04b73e05a1af1e0dff32.zip gcc-ca1ffed0e8ac8c0eddaf04b73e05a1af1e0dff32.tar.gz gcc-ca1ffed0e8ac8c0eddaf04b73e05a1af1e0dff32.tar.bz2 | |
[multiple changes]
2013-01-02 Robert Dewar <dewar@adacore.com>
* einfo.ads, einfo.adb (Has_Independent_Components): New flag.
* freeze.adb (Size_Known): We do not know the size of a packed
record if it has atomic components, by reference type components,
or independent components.
* sem_prag.adb (Analyze_Pragma, case Independent_Components): Set new
flag Has_Independent_Components.
2013-01-02 Yannick Moy <moy@adacore.com>
* opt.ads (Warn_On_Suspicious_Contract): Set to True by default.
* usage.adb (Usage): Update usage message.
2013-01-02 Pascal Obry <obry@adacore.com>
* adaint.c (__gnat_is_module_name_supported): New constant.
2013-01-02 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Check_Array_Type): Reject an attribute reference on an
array whose component type does not have a completion.
From-SVN: r194802
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index e67c4df..d95b661 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -2963,7 +2963,10 @@ __gnat_locate_exec_on_path (char *exec_name) /* __gnat_get_module_name returns the module name (executable or shared library) in which the code at addr is. This is used to properly report the symbolic tracebacks. If the module cannot be located - it returns the empty string. The returned value must not be freed. */ + it returns the empty string. The returned value must not be freed. + + If this routine is fully implemented the value for + __gnat_is_module_name_supported should be set to 1. */ char *__gnat_get_module_name (void *addr ATTRIBUTE_UNUSED) { @@ -2999,6 +3002,12 @@ char *__gnat_get_module_name (void *addr ATTRIBUTE_UNUSED) #endif } +#ifdef _WIN32 +int __gnat_is_module_name_supported = 1; +#else +int __gnat_is_module_name_supported = 0; +#endif + #ifdef VMS /* These functions are used to translate to and from VMS and Unix syntax |