vms-protos.h (vms_function_section): New prototype.

2011-12-21  Tristan Gingold  <gingold@adacore.com>

	* config/vms/vms-protos.h (vms_function_section): New prototype.
	* config/vms/vms.c (vms_function_section): New function.
	* config/vms/vms.h (TARGET_ASM_FUNCTION_SECTION): Define.

From-SVN: r182571

gcc/ChangeLog

+2011-12-21  Tristan Gingold  <gingold@adacore.com>
+
+	* config/vms/vms-protos.h (vms_function_section): New prototype.
+	* config/vms/vms.c (vms_function_section): New function.
+	* config/vms/vms.h (TARGET_ASM_FUNCTION_SECTION): Define.
+
 2011-12-21  Richard Guenther  <rguenther@suse.de>
 
 	PR lto/41159

gcc/config/vms/vms-protos.h

@@ -22,3 +22,10 @@ extern void vms_c_register_pragma (void);
 
 /* vms.c  */
 void vms_patch_builtins (void);
+
+#ifdef TREE_CODE
+extern section *vms_function_section (tree decl ATTRIBUTE_UNUSED,
+                                      enum node_frequency freq ATTRIBUTE_UNUSED,
+                                      bool startup ATTRIBUTE_UNUSED,
+                                      bool exit ATTRIBUTE_UNUSED);
+#endif /* TREE_CODE */

gcc/config/vms/vms.c

@@ -180,4 +180,15 @@ vms_patch_builtins (void)
     }
 }
 
+/* Always default to .text section.  */
+
+section *
+vms_function_section (tree decl ATTRIBUTE_UNUSED,
+                      enum node_frequency freq ATTRIBUTE_UNUSED,
+                      bool startup ATTRIBUTE_UNUSED,
+                      bool exit ATTRIBUTE_UNUSED)
+{
+  return NULL;
+}
+
 #include "gt-vms.h"

gcc/config/vms/vms.h

@@ -61,3 +61,7 @@ extern void vms_c_register_includes (const char *, const char *, int);
 #define SIZE_TYPE "unsigned int"
 #undef PTRDIFF_TYPE
 #define PTRDIFF_TYPE "int"
+
+/* VMS doesn't support other sections than .text for code.  */
+
+#define TARGET_ASM_FUNCTION_SECTION vms_function_section