OSDN Git Service

* trans-decl.c (gfc_build_builtin_function_decls): Give the internal
authorsteven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 31 Jul 2005 21:41:39 +0000 (21:41 +0000)
committersteven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 31 Jul 2005 21:41:39 +0000 (21:41 +0000)
malloc functions the 'malloc' attribute.  Give runtime_error the
'noreturn' attribute.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102609 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-decl.c

index f64e743..2704eec 100644 (file)
@@ -1,5 +1,11 @@
 2005-07-31  Steven Bosscher  <stevenb@suse.de>
 
+       * trans-decl.c (gfc_build_builtin_function_decls): Give the internal
+       malloc functions the 'malloc' attribute.  Give runtime_error the
+       'noreturn' attribute.
+
+2005-07-31  Steven Bosscher  <stevenb@suse.de>
+
        * trans-stmt.c (gfc_trans_goto): Jump to the known label instead
        of the assigned goto variable.
 
index ad53cbd..3395f3e 100644 (file)
@@ -1874,14 +1874,17 @@ gfc_build_builtin_function_decls (void)
   tree gfc_logical4_type_node = gfc_get_logical_type (4);
   tree gfc_pint4_type_node = build_pointer_type (gfc_int4_type_node);
 
+  /* Treat these two internal malloc wrappers as malloc.  */
   gfor_fndecl_internal_malloc =
     gfc_build_library_function_decl (get_identifier (PREFIX("internal_malloc")),
                                     pvoid_type_node, 1, gfc_int4_type_node);
+  DECL_IS_MALLOC (gfor_fndecl_internal_malloc) = 1;
 
   gfor_fndecl_internal_malloc64 =
     gfc_build_library_function_decl (get_identifier
                                     (PREFIX("internal_malloc64")),
                                     pvoid_type_node, 1, gfc_int8_type_node);
+  DECL_IS_MALLOC (gfor_fndecl_internal_malloc64) = 1;
 
   gfor_fndecl_internal_free =
     gfc_build_library_function_decl (get_identifier (PREFIX("internal_free")),
@@ -1930,6 +1933,8 @@ gfc_build_builtin_function_decls (void)
                                     3,
                                     pchar_type_node, pchar_type_node,
                                     gfc_int4_type_node);
+  /* The runtime_error function does not return.  */
+  TREE_THIS_VOLATILE (gfor_fndecl_runtime_error) = 1;
 
   gfor_fndecl_in_pack = gfc_build_library_function_decl (
         get_identifier (PREFIX("internal_pack")),