diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-03 11:09:24 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-03 11:09:24 +0100 |
| commit | 329ea7ece205200951bf92a642196935dfa2dad1 (patch) | |
| tree | a2e0ef3632b87fd658f62f0b7ae5acf9f0d287ac /gcc/ada/adaint.c | |
| parent | 86a2db336a819376663e4a44141e569dcef21015 (diff) | |
| download | gcc-329ea7ece205200951bf92a642196935dfa2dad1.zip gcc-329ea7ece205200951bf92a642196935dfa2dad1.tar.gz gcc-329ea7ece205200951bf92a642196935dfa2dad1.tar.bz2 | |
[multiple changes]
2013-01-03 Robert Dewar <dewar@adacore.com>
* exp_intr.adb: Minor reformatting.
2013-01-03 Robert Dewar <dewar@adacore.com>
* einfo.adb: Minor reformatting.
2013-01-03 Pascal Obry <obry@adacore.com>
* adaint.c, adaint.h (__gnat_get_module_name): Removed.
(__gnat_is_module_name_supported): Removed.
* s-win32.ads: Add some needed definitions.
* g-trasym.ads: Update comments.
2013-01-03 Robert Dewar <dewar@adacore.com>
* layout.adb (Set_Composite_Alignment): Fix problems of
interactions with Optimize_Alignment set to Space.
2013-01-03 Thomas Quinot <quinot@adacore.com>
* exp_disp.adb: Minor reformatting.
From-SVN: r194842
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index d95b661..4b8ce53 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -2960,54 +2960,6 @@ __gnat_locate_exec_on_path (char *exec_name) #endif } -/* __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. - - 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) -{ - extern char **gnat_argv; - -#ifdef _WIN32 - static char lpFilename[MAX_PATH]; - HMODULE hModule; - - lpFilename[0] = '\0'; - - /* Get the module handle in which the code running at the specified - address is contained. */ - - if (GetModuleHandleEx - (GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS, addr, &hModule) == FALSE) - return __gnat_locate_exec_on_path (gnat_argv[0]); - - /* Get the corresponding module full path name. We really want the - standard ASCII version of this routine as the name is passed to - the BFD library. */ - - if (GetModuleFileNameA (hModule, lpFilename, MAX_PATH) == 0) - return __gnat_locate_exec_on_path (gnat_argv[0]); - - return lpFilename; - -#else - /* On all other platforms we just return the full path name of the - main executable. */ - - return __gnat_locate_exec_on_path (gnat_argv[0]); -#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 |