aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/s-tassta.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-04-15 12:51:32 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-15 12:51:32 +0200
commit55cc1a0524a460e8b224878114842463100b0e0e (patch)
treedb6c6af475721d139150f29938adcb6018b85725 /gcc/ada/s-tassta.adb
parent1f6821b4dcdcc3bf95f6aa4551cc755e113162be (diff)
downloadgcc-55cc1a0524a460e8b224878114842463100b0e0e.zip
gcc-55cc1a0524a460e8b224878114842463100b0e0e.tar.gz
gcc-55cc1a0524a460e8b224878114842463100b0e0e.tar.bz2
[multiple changes]
2009-04-15 Pascal Obry <obry@adacore.com> Add support for Win32 native encoding for delete/rename routines. * adaint.c (__gnat_unlink): New routine. (__gnat_rename): New routine. Simple wrapper routines used to convert to proper encoding on Windows. * s-os_lib.adb: Use __gnat_unlink and __gnat_rename instead of direct call to the C library. * g-sercom-mingw.adb, s-win32.ads: Update Win32 binding. 2009-04-15 Robert Dewar <dewar@adacore.com> * s-tassta.adb: Minor reformatting From-SVN: r146101
Diffstat (limited to 'gcc/ada/s-tassta.adb')
-rw-r--r--gcc/ada/s-tassta.adb2
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb
index 836f332..9a5ce9f 100644
--- a/gcc/ada/s-tassta.adb
+++ b/gcc/ada/s-tassta.adb
@@ -1388,6 +1388,8 @@ package body System.Tasking.Stages is
-- unwound. The common notification routine has been called at the
-- raise point already.
+ -- Lock to prevent unsynchronized output
+
Initialization.Task_Lock (Self_Id);
To_Stderr ("task ");