diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-20 10:55:51 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-20 10:55:51 +0100 |
| commit | 6b66981a2f73615e0d3bb422a44b70a2ff38740d (patch) | |
| tree | 86ad98a89d1dd525500d7815c70f10c8b047be09 | |
| parent | 09edc2c2bbca4e668222ec0ffdae15f051cf8ea1 (diff) | |
| download | gcc-6b66981a2f73615e0d3bb422a44b70a2ff38740d.zip gcc-6b66981a2f73615e0d3bb422a44b70a2ff38740d.tar.gz gcc-6b66981a2f73615e0d3bb422a44b70a2ff38740d.tar.bz2 | |
[multiple changes]
2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
* gnat1drv.adb: Minor consistency fix.
2015-02-20 Pascal Obry <obry@adacore.com>
* s-osprim-mingw.adb (Get_Base_Time): Properly release lock in all
paths.
From-SVN: r220845
| -rw-r--r-- | gcc/ada/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/s-osprim-mingw.adb | 3 |
3 files changed, 13 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e50d195..e826f4e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,14 @@ 2015-02-20 Eric Botcazou <ebotcazou@adacore.com> + * gnat1drv.adb: Minor consistency fix. + +2015-02-20 Pascal Obry <obry@adacore.com> + + * s-osprim-mingw.adb (Get_Base_Time): Properly release lock in all + paths. + +2015-02-20 Eric Botcazou <ebotcazou@adacore.com> + * inline.adb (Expand_Inlined_Call): Skip again calls to subprogram renamings. * exp_ch6.adb (Expand_Call): Use back-end inlining diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index a7acd29..b572bc4 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -1238,8 +1238,8 @@ begin and then (not (Back_Annotate_Rep_Info or Generate_SCIL or GNATprove_Mode) or else Main_Kind = N_Subunit - or else Targparm.Frontend_Layout_On_Target - or else Targparm.VM_Target /= No_VM) + or else Frontend_Layout_On_Target + or else VM_Target /= No_VM) then Post_Compilation_Validation_Checks; Errout.Finalize (Last_Call => True); diff --git a/gcc/ada/s-osprim-mingw.adb b/gcc/ada/s-osprim-mingw.adb index f8a41dd..ddd2554 100644 --- a/gcc/ada/s-osprim-mingw.adb +++ b/gcc/ada/s-osprim-mingw.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2015, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -216,6 +216,7 @@ package body System.OS_Primitives is -- base data (time, clock, ticks) have already been updated. if Sig /= Signature then + Unlock; return; end if; |