Index: dwarf2loc.c
===================================================================
--- dwarf2loc.c	(revision 14570)
+++ dwarf2loc.c	(working copy)
@@ -151,6 +151,9 @@ dwarf_expr_frame_base (void *baton, gdb_
 
   framefunc = get_frame_function (debaton->frame);
 
+  if (!framefunc)
+    error (_("No frame function."));
+
   if (SYMBOL_OPS (framefunc) == &dwarf2_loclist_funcs)
     {
       struct dwarf2_loclist_baton *symbaton;