diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 12:24:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 12:24:19 +0000 |
| commit | 437991c26e282a913f80ad42b75b7256fabaa985 (patch) | |
| tree | 77bfbb53beec393fc559fe7c0deb44d5bedc9509 /gcc/ada/s-crtl.ads | |
| parent | 105907b4e65497fd891ac529c8fc880610f71a40 (diff) | |
| download | gcc-437991c26e282a913f80ad42b75b7256fabaa985.tar.gz | |
2009-04-16 Pascal Obry <obry@adacore.com>
* adaint.h, adaint.c (__gnat_rmdir): New routine.
Simple wrapper routines used to convert to proper encoding on
Windows.
* s-crtl.ads: Use __gnat_rmdir instead of direct call to the C library.
* g-dirope.adb (Remove_Dir): Fix a bug, the root directory was removed
twice.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146176 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-crtl.ads')
| -rw-r--r-- | gcc/ada/s-crtl.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads index 4c76ccfd611..aa4a8b57086 100644 --- a/gcc/ada/s-crtl.ads +++ b/gcc/ada/s-crtl.ads @@ -164,8 +164,8 @@ package System.CRTL is procedure rewind (stream : FILEs); pragma Import (C, rewind, "rewind"); - procedure rmdir (dir_name : String); - pragma Import (C, rmdir, "rmdir"); + function rmdir (dir_name : String) return int; + pragma Import (C, rmdir, "__gnat_rmdir"); function chdir (dir_name : String) return int; pragma Import (C, chdir, "__gnat_chdir"); |