diff options
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 |