(lookup_global_symbol_from_objfile): Simplify.

[deliverable/binutils-gdb.git] / gdb / f-exp.y

diff --git a/gdb/f-exp.y b/gdb/f-exp.y
index 3deaf3017702e7a22525242bc44b97c4c8755f56..f229afa0f96190e029319b989a1e912efd37fff3 100644 (file)
--- a/gdb/f-exp.y
+++ b/gdb/f-exp.y
@@ -1,3 +1,4 @@
+
 /* YACC parser for Fortran expressions, for GDB.
    Copyright (C) 1986-2014 Free Software Foundation, Inc.
 
@@ -42,7 +43,6 @@
 %{
 
 #include "defs.h"
-#include <string.h>
 #include "expression.h"
 #include "value.h"
 #include "parser-defs.h"
@@ -577,10 +577,10 @@ ptype     :       typebase
                        if (array_size != -1)
                          {
                            range_type =
-                             create_range_type ((struct type *) NULL,
-                                                parse_f_type (pstate)
-                                                ->builtin_integer,
-                                                0, array_size - 1);
+                             create_static_range_type ((struct type *) NULL,
+                                                       parse_f_type (pstate)
+                                                       ->builtin_integer,
+                                                       0, array_size - 1);
                            follow_type =
                              create_array_type ((struct type *) NULL,
                                                 follow_type, range_type);