From 81501d2b45d990aaab9c0c3b85a13b4315ed567e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 12 Nov 2015 11:49:07 +0100 Subject: [multiple changes] 2015-11-12 Emmanuel Briot * s-os_lib.ads: Documentation update. 2015-11-12 Arnaud Charlet * s-taprop-vxworks.adb, s-osinte-vxworks.ads: Use a single import of taskDelay to avoid confusion. 2015-11-12 Ed Schonberg * exp_ch6.adb (Expand_Simple_Function_Return): If the return type is class-wide and the expression is a view conversion, remove the conversion to prevent overriding of the tag, which must be that of the object being returned. 2015-11-12 Tristan Gingold * bindgen.adb (Gen_Adainit): Code cleanup. 2015-11-12 Hristian Kirtchev * s-stalib.ads: Code cleanup. 2015-11-12 Ed Schonberg * sem_ch3.adb (Analyze_Incomplete_Type_Decl): small optimization. (Analyze_Subtype_Declaration): For floating point types, inherit dimensions. (OK_For_Limited_Init_In_05): Handle properly a conditional expression whose condition is static, and is rewritten as the branch that will be executed. 2015-11-12 Ed Schonberg * sem_attr.adb (Resolve_Attribute, case 'Access): If the context type is an access constant type, do not mark the attribute reference as a possible modification of the prefix. From-SVN: r230226 --- gcc/ada/bindgen.adb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'gcc/ada/bindgen.adb') diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 4ad1904..c4f8c76 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -90,7 +90,7 @@ package body Bindgen is System_BB_CPU_Primitives_Multiprocessors_Used : Boolean := False; -- Flag indicating whether unit System.BB.CPU_Primitives.Multiprocessors - -- is in the closure of the partiation. This is set by procedure + -- is in the closure of the partition. This is set by procedure -- Resolve_Binder_Options, and it is used to call a procedure that starts -- slave processors. @@ -685,6 +685,14 @@ package body Bindgen is " ""__gnat_activate_all_tasks"");"); end if; + -- Import procedure to start slave cpus for bareboard runtime + + if System_BB_CPU_Primitives_Multiprocessors_Used then + WBI (" procedure Start_Slave_CPUs;"); + WBI (" pragma Import (C, Start_Slave_CPUs," & + " ""__gnat_start_slave_cpus"");"); + end if; + -- For restricted run-time libraries (ZFP and Ravenscar) -- tasks are non-terminating, so we do not want finalization. -- cgit v1.1