From 0ae44446c2b6cd370e212fd94fcb8c261f3ef231 Mon Sep 17 00:00:00 2001 From: Jose Ruiz Date: Mon, 18 Oct 2010 13:54:23 +0000 Subject: adaint.c (__gnat_pthread_setaffinity_np, [...]): Remove wrappers, no longer needed. 2010-10-18 Jose Ruiz * adaint.c (__gnat_pthread_setaffinity_np, __gnat_pthread_attr_setaffinity_np): Remove wrappers, no longer needed. * s-osinte-linux.ads (pthread_setaffinity_np, pthread_attr_setaffinity_np): Remove use of wrappers. * s-taprop-linux.adb (Create_Task, Initialize): Restore check to verify whether the affinity functionality is available in the OS. * gcc-interface/utils.c: Set TREE_STATIC on functions only when there are defined. From-SVN: r165635 --- gcc/ada/gcc-interface/utils.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gcc-interface/utils.c') diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 876556c..9973d27 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1783,7 +1783,6 @@ create_subprog_decl (tree subprog_name, tree asm_name, DECL_EXTERNAL (subprog_decl) = extern_flag; TREE_PUBLIC (subprog_decl) = public_flag; - TREE_STATIC (subprog_decl) = 1; TREE_READONLY (subprog_decl) = TYPE_READONLY (subprog_type); TREE_THIS_VOLATILE (subprog_decl) = TYPE_VOLATILE (subprog_type); TREE_SIDE_EFFECTS (subprog_decl) = TYPE_VOLATILE (subprog_type); @@ -1831,6 +1830,9 @@ begin_subprog_body (tree subprog_decl) announce_function (subprog_decl); + /* This function is being defined. */ + TREE_STATIC (subprog_decl) = 1; + current_function_decl = subprog_decl; /* Enter a new binding level and show that all the parameters belong to -- cgit v1.1