X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Fguile%2Fscm-type.c;h=bf2f751ce4d329b5ed2cb90eb9fe4b2ecc0f0e12;hb=94c93c35b50d0783fdfda277508d0ae6c3e372fb;hp=5b99da70e6eeb59e4cf9639f4ac018eb61df54be;hpb=680d7fd5fcff860a31021845389d4dfeb7b42e3c;p=deliverable%2Fbinutils-gdb.git

diff --git a/gdb/guile/scm-type.c b/gdb/guile/scm-type.c
index 5b99da70e6..bf2f751ce4 100644
--- a/gdb/guile/scm-type.c
+++ b/gdb/guile/scm-type.c
@@ -1,6 +1,6 @@
 /* Scheme interface to types.
 
-   Copyright (C) 2008-2019 Free Software Foundation, Inc.
+   Copyright (C) 2008-2020 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -26,9 +26,8 @@
 #include "gdbtypes.h"
 #include "objfiles.h"
 #include "language.h"
-#include "common/vec.h"
 #include "bcache.h"
-#include "dwarf2loc.h"
+#include "dwarf2/loc.h"
 #include "typeprint.h"
 #include "guile-internal.h"
 
@@ -1246,7 +1245,7 @@ tyscm_lookup_typename (const char *type_name, const struct block *block)
       else if (startswith (type_name, "enum "))
 	type = lookup_enum (type_name + 5, NULL);
       else
-	type = lookup_typename (current_language, get_current_arch (),
+	type = lookup_typename (current_language,
 				type_name, block, 0);
     }
   catch (const gdb_exception &except)