diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:47:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:47:16 +0200 |
| commit | e3a325f2f013b6f934863fcd4187154666f84237 (patch) | |
| tree | 5d7f12404b9b5f13ebd1113040453a897d8ba142 /gcc/ada/s-tasini.adb | |
| parent | aa6113321ae9e0391e42fc6400d932bf35068432 (diff) | |
| download | gcc-e3a325f2f013b6f934863fcd4187154666f84237.zip gcc-e3a325f2f013b6f934863fcd4187154666f84237.tar.gz gcc-e3a325f2f013b6f934863fcd4187154666f84237.tar.bz2 | |
[multiple changes]
2014-06-13 Robert Dewar <dewar@adacore.com>
* sem_cat.adb: Minor reformatting.
2014-06-13 Yannick Moy <moy@adacore.com>
* sem_prag.adb (Analyze_Pragma/Post_Class): Fix typo.
2014-06-13 Arnaud Charlet <charlet@adacore.com>
* gnat_rm.texi: Add detail on SPARK_05 restriction.
2014-06-13 Bob Duff <duff@adacore.com>
* s-solita.adb (Get_Sec_Stack_Addr, Init_Tasking_Soft_Links):
Add assertions requiring the secondary stack to be initialized.
* s-solita.ads (Init_Tasking_Soft_Links): Comment.
* s-taprob.adb, s-tarest.adb, s-tasini.adb (elab code): Make sure the
secondary stack is initialized before calling Init_Tasking_Soft_Links,
by adding pragmas Elaborate_Body.
2014-06-13 Thomas Quinot <quinot@adacore.com>
* sem_ch13.adb (Analyze_Stream_TSS_Definition): Remove temporary
kludge disabling new legality check.
From-SVN: r211614
Diffstat (limited to 'gcc/ada/s-tasini.adb')
| -rw-r--r-- | gcc/ada/s-tasini.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb index 27bf939..387854e 100644 --- a/gcc/ada/s-tasini.adb +++ b/gcc/ada/s-tasini.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -47,6 +47,11 @@ with System.Soft_Links.Tasking; with System.Tasking.Debug; with System.Parameters; +with System.Secondary_Stack; pragma Elaborate_All (System.Secondary_Stack); +pragma Unreferenced (System.Secondary_Stack); +-- Make sure the body of Secondary_Stack is elaborated before calling +-- Init_Tasking_Soft_Links. + package body System.Tasking.Initialization is package STPO renames System.Task_Primitives.Operations; |