* config/irix3.mh (NATDEPFILES): nat-mips.o => mips-nat.o.
[deliverable/binutils-gdb.git] / gdb / blockframe.c
index 451af1ad1e671153c6ac6ae547dd1e96f860de8f..ee42d7c835cd8850695421fd96719ae5440c6347 100644 (file)
 /* Get info from stack frames;
    convert between frames, blocks, functions and pc values.
-   Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
+   Copyright (C) 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
 
-GDB is distributed in the hope that it will be useful, but WITHOUT ANY
-WARRANTY.  No author or distributor accepts responsibility to anyone
-for the consequences of using it or for whether it serves any
-particular purpose or works at all, unless he says so in writing.
-Refer to the GDB General Public License for full details.
+This file is part of GDB.
 
-Everyone is granted permission to copy, modify and redistribute GDB,
-but only under the conditions described in the GDB General Public
-License.  A copy of this license is supposed to have been given to you
-along with GDB so you can know your rights and responsibilities.  It
-should be in a file named COPYING.  Among other things, the copyright
-notice and this notice must be preserved on all copies.
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
 
-In other words, go ahead and share GDB, but don't try to stop
-anyone else from sharing it farther.  Help stamp out software hoarding!
-*/
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
 
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
 #include "defs.h"
 #include "param.h"
 #include "symtab.h"
 #include "frame.h"
+#include "gdbcore.h"
+#include "value.h"             /* for read_register */
+#include "target.h"            /* for target_has_stack */
+
+CORE_ADDR read_pc ();          /* In infcmd.c */
 
-/* Address of end of first object file.
+/* Start and end of object file containing the entry point.
+   STARTUP_FILE_END is the first address of the next file.
    This file is assumed to be a startup file
    and frames with pc's inside it
-   are treated as nonexistent.  */
+   are treated as nonexistent.
+
+   Setting these variables is necessary so that backtraces do not fly off
+   the bottom of the stack.  */
+CORE_ADDR startup_file_start;
+CORE_ADDR startup_file_end;
+
+/* Is ADDR outside the startup file?  Note that if your machine
+   has a way to detect the bottom of the stack, there is no need
+   to call this function from FRAME_CHAIN_VALID; the reason for
+   doing so is that some machines have no way of detecting bottom
+   of stack.  */
+int
+outside_startup_file (addr)
+     CORE_ADDR addr;
+{
+  return !(addr >= startup_file_start && addr < startup_file_end);
+}
 
-CORE_ADDR first_object_file_end;
+/* Support an alternate method to avoid running off the bottom of
+   the stack (or top, depending upon your stack orientation).
+
+   There are two frames that are "special", the frame for the function
+   containing the process entry point, since it has no predecessor frame,
+   and the frame for the function containing the user code entry point
+   (the main() function), since all the predecessor frames are for the
+   process startup code.  Since we have no guarantee that the linked
+   in startup modules have any debugging information that gdb can use,
+   we need to avoid following frame pointers back into frames that might
+   have been built in the startup code, as we might get hopelessly 
+   confused.  However, we almost always have debugging information
+   available for main().
+
+   These variables are used to save the range of PC values which are valid
+   within the main() function and within the function containing the process
+   entry point.  If we always consider the frame for main() as the outermost
+   frame when debugging user code, and the frame for the process entry
+   point function as the outermost frame when debugging startup code, then
+   all we have to do is have FRAME_CHAIN_VALID return false whenever a
+   frame's current PC is within the range specified by these variables.
+   In essence, we set "blocks" in the frame chain beyond which we will
+   not proceed when following the frame chain.  
+
+   A nice side effect is that we can still debug startup code without
+   running off the end of the frame chain, assuming that we have usable
+   debugging information in the startup modules, and if we choose to not
+   use the block at main, or can't find it for some reason, everything
+   still works as before.  And if we have no startup code debugging
+   information but we do have usable information for main(), backtraces
+   from user code don't go wandering off into the startup code.
+
+   To use this method, define your FRAME_CHAIN_VALID macro like:
+
+       #define FRAME_CHAIN_VALID(chain, thisframe)     \
+         (chain != 0                                   \
+          && !(inside_main_scope ((thisframe)->pc))    \
+          && !(inside_entry_scope ((thisframe)->pc)))
+
+   and add initializations of the four scope controlling variables inside
+   the object file / debugging information processing modules.  */
+
+CORE_ADDR entry_scope_lowpc;
+CORE_ADDR entry_scope_highpc;
+CORE_ADDR main_scope_lowpc;
+CORE_ADDR main_scope_highpc;
+
+/* Test a specified PC value to see if it is in the range of addresses
+   that correspond to the main() function.  See comments above for why
+   we might want to do this.
+
+   Typically called from FRAME_CHAIN_VALID. */
+
+int
+inside_main_scope (pc)
+CORE_ADDR pc;
+{
+  return (main_scope_lowpc <= pc && pc < main_scope_highpc);
+}
+
+/* Test a specified PC value to see if it is in the range of addresses
+   that correspond to the process entry point function.  See comments above
+   for why we might want to do this.
+
+   Typically called from FRAME_CHAIN_VALID. */
+
+int
+inside_entry_scope (pc)
+CORE_ADDR pc;
+{
+  return (entry_scope_lowpc <= pc && pc < entry_scope_highpc);
+}
 
 /* Address of innermost stack frame (contents of FP register) */
 
 static FRAME current_frame;
 
-struct block *block_for_pc ();
-CORE_ADDR get_pc_function_start ();
-
 /*
  * Cache for frame addresses already read by gdb.  Valid only while
  * inferior is stopped.  Control variables for the frame cache should
@@ -82,7 +173,7 @@ create_new_frame (addr, pc)
   fci->pc = pc;
 
 #ifdef INIT_EXTRA_FRAME_INFO
-  INIT_EXTRA_FRAME_INFO (fci);
+  INIT_EXTRA_FRAME_INFO (0, fci);
 #endif
 
   return fci;
@@ -100,6 +191,18 @@ get_prev_frame (frame)
   return get_prev_frame_info (frame);
 }
 
+/* Return the frame that FRAME calls (0 if FRAME is the innermost
+   frame).  */
+
+FRAME
+get_next_frame (frame)
+     FRAME frame;
+{
+  /* We're allowed to know that FRAME and "struct frame_info *" are
+     the same */
+  return frame->next;
+}
+
 /*
  * Flush the entire frame cache.
  */
@@ -109,10 +212,21 @@ flush_cached_frames ()
   /* Since we can't really be sure what the first object allocated was */
   obstack_free (&frame_cache_obstack, 0);
   obstack_init (&frame_cache_obstack);
-  
+
   current_frame = (struct frame_info *) 0; /* Invalidate cache */
 }
 
+/* Flush the frame cache, and start a new one if necessary.  */
+void
+reinit_frame_cache ()
+{
+  FRAME fr = current_frame;
+  flush_cached_frames ();
+  if (fr)
+    set_current_frame ( create_new_frame (read_register (FP_REGNUM),
+                                         read_pc ()));
+}
+
 /* Return a structure containing various interesting information
    about a specified stack frame.  */
 /* How do I justify including this function?  Well, the FRAME
@@ -127,8 +241,57 @@ get_frame_info (frame)
   return frame;
 }
 
+/* If a machine allows frameless functions, it should define a macro
+   FRAMELESS_FUNCTION_INVOCATION(FI, FRAMELESS) in param.h.  FI is the struct
+   frame_info for the frame, and FRAMELESS should be set to nonzero
+   if it represents a frameless function invocation.  */
+
+/* Return nonzero if the function for this frame has a prologue.  Many
+   machines can define FRAMELESS_FUNCTION_INVOCATION to just call this
+   function.  */
+
+int
+frameless_look_for_prologue (frame)
+     FRAME frame;
+{
+  CORE_ADDR func_start, after_prologue;
+  func_start = (get_pc_function_start (frame->pc) +
+               FUNCTION_START_OFFSET);
+  if (func_start)
+    {
+      after_prologue = func_start;
+#ifdef SKIP_PROLOGUE_FRAMELESS_P
+      /* This is faster, since only care whether there *is* a prologue,
+        not how long it is.  */
+      SKIP_PROLOGUE_FRAMELESS_P (after_prologue);
+#else
+      SKIP_PROLOGUE (after_prologue);
+#endif
+      return after_prologue == func_start;
+    }
+  else
+    /* If we can't find the start of the function, we don't really
+       know whether the function is frameless, but we should be able
+       to get a reasonable (i.e. best we can do under the
+       circumstances) backtrace by saying that it isn't.  */
+    return 0;
+}
+
+/* Default a few macros that people seldom redefine.  */
+
+#if !defined (INIT_FRAME_PC)
+#define INIT_FRAME_PC(fromleaf, prev) \
+  prev->pc = (fromleaf ? SAVED_PC_AFTER_CALL (prev->next) : \
+             prev->next ? FRAME_SAVED_PC (prev->next) : read_pc ());
+#endif
+
+#ifndef FRAME_CHAIN_COMBINE
+#define        FRAME_CHAIN_COMBINE(chain, thisframe) (chain)
+#endif
+
 /* Return a structure containing various interesting information
-   about the frame that called NEXT_FRAME.  */
+   about the frame that called NEXT_FRAME.  Returns NULL
+   if there is no such frame.  */
 
 struct frame_info *
 get_prev_frame_info (next_frame)
@@ -138,16 +301,6 @@ get_prev_frame_info (next_frame)
   struct frame_info *prev;
   int fromleaf = 0;
 
-  /* If we are within "start" right now, don't go any higher.  */
-  /* This truncates stack traces of things at sigtramp() though,
-     because sigtramp() doesn't have a normal return PC, it has
-     garbage or a small value (seen: 3) in the return PC slot. 
-     It's VITAL to see where the signal occurred, so punt this. */
-#if 0
-  if (next_frame && next_frame->pc < first_object_file_end)
-    return 0;
-#endif
-
   /* If the requested entry is in the cache, return it.
      Otherwise, figure out what the address should be for the entry
      we're about to add to the cache. */
@@ -155,62 +308,56 @@ get_prev_frame_info (next_frame)
   if (!next_frame)
     {
       if (!current_frame)
-       error ("No frame is currently selected.");
+       {
+         error ("You haven't set up a process's stack to examine.");
+       }
 
       return current_frame;
     }
-  else
+
+  /* If we have the prev one, return it */
+  if (next_frame->prev)
+    return next_frame->prev;
+
+  /* On some machines it is possible to call a function without
+     setting up a stack frame for it.  On these machines, we
+     define this macro to take two args; a frameinfo pointer
+     identifying a frame and a variable to set or clear if it is
+     or isn't leafless.  */
+#ifdef FRAMELESS_FUNCTION_INVOCATION
+  /* Still don't want to worry about this except on the innermost
+     frame.  This macro will set FROMLEAF if NEXT_FRAME is a
+     frameless function invocation.  */
+  if (!(next_frame->next))
     {
-      /* If we have the prev one, return it */
-      if (next_frame->prev)
-       return next_frame->prev;
-
-      /* There is a questionable, but probably always correct
-        assumption being made here.  The assumption is that if
-        functions on a specific machine has a FUNCTION_START_OFFSET,
-        then this is used by the function call instruction for some
-        purpose.  If the function call instruction has this much hair
-        in it, it probably also sets up the frame pointer
-        automatically (ie.  we'll never have what I am calling a
-        "leaf node", one which shares a frame pointer with it's
-        calling function).  This is true on a vax.  The only other
-        way to find this out would be to setup a seperate macro
-        "FUNCTION_HAS_FRAME_POINTER", which would often be equivalent
-        to SKIP_PROLOGUE modifying a pc value.  */
-
-#if FUNCTION_START_OFFSET == 0
-      if (!(next_frame->next))
-       {
-         /* Innermost */
-         CORE_ADDR func_start, after_prologue;
-
-         func_start = (get_pc_function_start (next_frame->pc) +
-                       FUNCTION_START_OFFSET);
-         after_prologue = func_start;
-         SKIP_PROLOGUE (after_prologue);
-         if (after_prologue == func_start)
-           {
-             fromleaf = 1;
-             address = next_frame->frame;
-           }
-       }
+      FRAMELESS_FUNCTION_INVOCATION (next_frame, fromleaf);
+      if (fromleaf)
+       address = next_frame->frame;
+    }
 #endif
 
-      if (!fromleaf)
-       {
-         /* Two macros defined in param.h specify the machine-dependent
-            actions to be performed here.  */
-         /* First, get the frame's chain-pointer.
-            If that is zero, the frame is the outermost frame.  */
-         address = FRAME_CHAIN (next_frame);
-         if (!FRAME_CHAIN_VALID (address, next_frame))
-           return 0;
-
-         /* If frame has a caller, combine the chain pointer and
-            the frame's own address to get the address of the caller.  */
-         address = FRAME_CHAIN_COMBINE (address, next_frame);
-       }
+  if (!fromleaf)
+    {
+      /* Two macros defined in tm.h specify the machine-dependent
+        actions to be performed here.
+        First, get the frame's chain-pointer.
+        If that is zero, the frame is the outermost frame or a leaf
+        called by the outermost frame.  This means that if start
+        calls main without a frame, we'll return 0 (which is fine
+        anyway).
+
+        Nope; there's a problem.  This also returns when the current
+        routine is a leaf of main.  This is unacceptable.  We move
+        this to after the ffi test; I'd rather have backtraces from
+        start go curfluy than have an abort called from main not show
+        main.  */
+      address = FRAME_CHAIN (next_frame);
+      if (!FRAME_CHAIN_VALID (address, next_frame))
+       return 0;
+      address = FRAME_CHAIN_COMBINE (address, next_frame);
     }
+  if (address == 0)
+    return 0;
 
   prev = (struct frame_info *)
     obstack_alloc (&frame_cache_obstack,
@@ -224,14 +371,13 @@ get_prev_frame_info (next_frame)
   prev->next_frame = prev->next ? prev->next->frame : 0;
 
 #ifdef INIT_EXTRA_FRAME_INFO
-  INIT_EXTRA_FRAME_INFO(prev);
+  INIT_EXTRA_FRAME_INFO(fromleaf, prev);
 #endif
 
   /* This entry is in the frame queue now, which is good since
      FRAME_SAVED_PC may use that queue to figure out it's value
-     (see m-sparc.h).  We want the pc saved in the inferior frame. */
-  prev->pc = (fromleaf ? SAVED_PC_AFTER_CALL (next_frame) :
-             next_frame ? FRAME_SAVED_PC (next_frame) : read_pc ());
+     (see tm-sparc.h).  We want the pc saved in the inferior frame. */
+  INIT_FRAME_PC(fromleaf, prev);
 
   return prev;
 }
@@ -245,6 +391,7 @@ get_frame_pc (frame)
   return fi->pc;
 }
 
+#if defined (FRAME_FIND_SAVED_REGS)
 /* Find the addresses in which registers are saved in FRAME.  */
 
 void
@@ -252,103 +399,9 @@ get_frame_saved_regs (frame_info_addr, saved_regs_addr)
      struct frame_info *frame_info_addr;
      struct frame_saved_regs *saved_regs_addr;
 {
-#if 1
   FRAME_FIND_SAVED_REGS (frame_info_addr, *saved_regs_addr);
-#else
-  {
-    register int regnum;                                                       
-    register int regmask;                                                      
-    register CORE_ADDR next_addr;                                              
-    register CORE_ADDR pc;                                             
-    int nextinsn;                                                              
-    bzero (&*saved_regs_addr, sizeof *saved_regs_addr);                        
-    if ((frame_info_addr)->pc >= ((frame_info_addr)->frame
-                            - CALL_DUMMY_LENGTH - FP_REGNUM*4 - 8*12 - 4)
-       && (frame_info_addr)->pc <= (frame_info_addr)->frame)                           
-      {
-       next_addr = (frame_info_addr)->frame;                                   
-       pc = (frame_info_addr)->frame - CALL_DUMMY_LENGTH - FP_REGNUM * 4 - 8*12 - 4;
-      }
-    else                                                               
-      {
-       pc = get_pc_function_start ((frame_info_addr)->pc);                     
-       /* Verify we have a link a6 instruction next;                   
-          if not we lose.  If we win, find the address above the saved   
-          regs using the amount of storage from the link instruction.  */
-       if (044016 == read_memory_integer (pc, 2))                      
-         {
-           next_addr = (frame_info_addr)->frame + read_memory_integer (pc += 2, 4);
-           pc += 4;
-         }
-       else if (047126 == read_memory_integer (pc, 2))
-         {
-           next_addr = (frame_info_addr)->frame + read_memory_integer (pc += 2, 2);
-           pc+=2;
-         }
-       else goto lose;                                                 
-       
-       /* If have an addal #-n, sp next, adjust next_addr.  */         
-       if ((0177777 & read_memory_integer (pc, 2)) == 0157774)
-         {
-           next_addr += read_memory_integer (pc += 2, 4);
-           pc += 4;
-         }
-      }                                                                        
-    /* next should be a moveml to (sp) or -(sp) or a movl r,-(sp) */   
-    regmask = read_memory_integer (pc + 2, 2);                         
-    
-    /* But before that can come an fmovem.  Check for it.  */          
-    nextinsn = 0xffff & read_memory_integer (pc, 2);                   
-    if (0xf227 == nextinsn                                             
-       && (regmask & 0xff00) == 0xe000)                                        
-      {
-       pc += 4; /* Regmask's low bit is for register fp7, the first pushed */ 
-       for (regnum = FP0_REGNUM + 7;
-            regnum >= FP0_REGNUM;
-            regnum--, regmask >>= 1)           
-         if (regmask & 1)                                              
-           (*saved_regs_addr).regs[regnum] = (next_addr -= 12);                
-       regmask = read_memory_integer (pc + 2, 2);
-      }                        
-    if (0044327 == read_memory_integer (pc, 2))                                
-      {
-       pc += 4; /* Regmask's low bit is for register 0, the first written */ 
-       for (regnum = 0; regnum < 16; regnum++, regmask >>= 1)          
-         if (regmask & 1)                                              
-           (*saved_regs_addr).regs[regnum] = (next_addr += 4) - 4;
-      }        
-    else if (0044347 == read_memory_integer (pc, 2))                   
-      { pc += 4; /* Regmask's low bit is for register 15, the first pushed */ 
-       for (regnum = 15; regnum >= 0; regnum--, regmask >>= 1)         
-         if (regmask & 1)                                              
-           (*saved_regs_addr).regs[regnum] = (next_addr -= 4); }               
-    else if (0x2f00 == (0xfff0 & read_memory_integer (pc, 2)))         
-      { regnum = 0xf & read_memory_integer (pc, 2); pc += 2;           
-       (*saved_regs_addr).regs[regnum] = (next_addr -= 4); }           
-    /* fmovemx to index of sp may follow.  */                          
-    regmask = read_memory_integer (pc + 2, 2);                         
-    nextinsn = 0xffff & read_memory_integer (pc, 2);                   
-    if (0xf236 == nextinsn                                             
-       && (regmask & 0xff00) == 0xf000)                                        
-      {
-       pc += 10; /* Regmask's low bit is for register fp0, the first written */ 
-       for (regnum = FP0_REGNUM + 7;
-            regnum >= FP0_REGNUM;
-            regnum--, regmask >>= 1)           
-         if (regmask & 1)                                              
-           (*saved_regs_addr).regs[regnum] = (next_addr += 12) - 12;   
-       regmask = read_memory_integer (pc + 2, 2);
-      }                        
-    /* clrw -(sp); movw ccr,-(sp) may follow.  */                              
-    if (0x426742e7 == read_memory_integer (pc, 4))                     
-      (*saved_regs_addr).regs[PS_REGNUM] = (next_addr -= 4);           
-  lose: ;                                                              
-    (*saved_regs_addr).regs[SP_REGNUM] = (frame_info_addr)->frame + 8;         
-    (*saved_regs_addr).regs[FP_REGNUM] = (frame_info_addr)->frame;             
-    (*saved_regs_addr).regs[PC_REGNUM] = (frame_info_addr)->frame + 4;         
-  }
-#endif
 }
+#endif
 
 /* Return the innermost lexical block in execution
    in a specified stack frame.  The frame address is assumed valid.  */
@@ -358,9 +411,19 @@ get_frame_block (frame)
      FRAME frame;
 {
   struct frame_info *fi;
+  CORE_ADDR pc;
 
   fi = get_frame_info (frame);
-  return block_for_pc (fi->pc);
+
+  pc = fi->pc;
+  if (fi->next_frame != 0)
+    /* We are not in the innermost frame.  We need to subtract one to
+       get the correct block, in case the call instruction was the
+       last instruction of the block.  If there are any machines on
+       which the saved pc does not point to after the call insn, we
+       probably want to make fi->pc point after the call insn anyway.  */
+    --pc;
+  return block_for_pc (pc);
 }
 
 struct block *
@@ -398,48 +461,29 @@ get_frame_function (frame)
   return block_function (bl);
 }
 \f
-/* Return the innermost lexical block containing the specified pc value,
-   or 0 if there is none.  */
+/* Return the blockvector immediately containing the innermost lexical block
+   containing the specified pc value, or 0 if there is none.
+   PINDEX is a pointer to the index value of the block.  If PINDEX
+   is NULL, we don't pass this information back to the caller.  */
 
-extern struct symtab *psymtab_to_symtab ();
-
-struct block *
-block_for_pc (pc)
+struct blockvector *
+blockvector_for_pc (pc, pindex)
      register CORE_ADDR pc;
+     int *pindex;
 {
   register struct block *b;
   register int bot, top, half;
   register struct symtab *s;
-  register struct partial_symtab *ps;
   struct blockvector *bl;
 
   /* First search all symtabs for one whose file contains our pc */
-
-  for (s = symtab_list; s; s = s->next)
-    {
-      bl = BLOCKVECTOR (s);
-      b = BLOCKVECTOR_BLOCK (bl, 0);
-      if (BLOCK_START (b) <= pc
-         && BLOCK_END (b) > pc)
-       break;
-    }
-
-  if (s == 0)
-    for (ps = partial_symtab_list; ps; ps = ps->next)
-      {
-       if (ps->textlow <= pc
-           && ps->texthigh > pc)
-         {
-           s = psymtab_to_symtab (ps);
-           bl = BLOCKVECTOR (s);
-           b = BLOCKVECTOR_BLOCK (bl, 0);
-           break;
-         }
-      }
-
+  s = find_pc_symtab (pc);
   if (s == 0)
     return 0;
 
+  bl = BLOCKVECTOR (s);
+  b = BLOCKVECTOR_BLOCK (bl, 0);
+
   /* Then search that symtab for the smallest block that wins.  */
   /* Use binary search to find the last block that starts before PC.  */
 
@@ -462,13 +506,33 @@ block_for_pc (pc)
     {
       b = BLOCKVECTOR_BLOCK (bl, bot);
       if (BLOCK_END (b) > pc)
-       return b;
+       {
+         if (pindex)
+           *pindex = bot;
+         return bl;
+       }
       bot--;
     }
 
   return 0;
 }
 
+/* Return the innermost lexical block containing the specified pc value,
+   or 0 if there is none.  */
+
+struct block *
+block_for_pc (pc)
+     register CORE_ADDR pc;
+{
+  register struct blockvector *bl;
+  int index;
+
+  bl = blockvector_for_pc (pc, &index);
+  if (bl)
+    return BLOCKVECTOR_BLOCK (bl, index);
+  return 0;
+}
+
 /* Return the function containing pc value PC.
    Returns 0 if function is not known.  */
 
@@ -482,6 +546,130 @@ find_pc_function (pc)
   return block_function (b);
 }
 
+/* These variables are used to cache the most recent result
+ * of find_pc_partial_function. */
+
+static CORE_ADDR cache_pc_function_low = 0;
+static CORE_ADDR cache_pc_function_high = 0;
+static char *cache_pc_function_name = 0;
+
+/* Clear cache, e.g. when symbol table is discarded. */
+
+void
+clear_pc_function_cache()
+{
+  cache_pc_function_low = 0;
+  cache_pc_function_high = 0;
+  cache_pc_function_name = (char *)0;
+}
+
+/* Finds the "function" (text symbol) that is smaller than PC
+   but greatest of all of the potential text symbols.  Sets
+   *NAME and/or *ADDRESS conditionally if that pointer is non-zero.
+   Returns 0 if it couldn't find anything, 1 if it did.  On a zero
+   return, *NAME and *ADDRESS are always set to zero.  On a 1 return,
+   *NAME and *ADDRESS contain real information.  */
+
+int
+find_pc_partial_function (pc, name, address)
+     CORE_ADDR pc;
+     char **name;
+     CORE_ADDR *address;
+{
+  struct partial_symtab *pst;
+  struct symbol *f;
+  int miscfunc;
+  struct partial_symbol *psb;
+
+  if (pc >= cache_pc_function_low && pc < cache_pc_function_high)
+    {
+       if (address)
+           *address = cache_pc_function_low;
+       if (name)
+           *name = cache_pc_function_name;
+       return 1;
+    }
+
+  pst = find_pc_psymtab (pc);
+  if (pst)
+    {
+      if (pst->readin)
+       {
+         /* The information we want has already been read in.
+            We can go to the already readin symbols and we'll get
+            the best possible answer.  */
+         f = find_pc_function (pc);
+         if (!f)
+           {
+           return_error:
+             /* No available symbol.  */
+             if (name != 0)
+               *name = 0;
+             if (address != 0)
+               *address = 0;
+             return 0;
+           }
+
+         cache_pc_function_low = BLOCK_START (SYMBOL_BLOCK_VALUE (f));
+         cache_pc_function_high = BLOCK_END (SYMBOL_BLOCK_VALUE (f));
+         cache_pc_function_name = SYMBOL_NAME (f);
+         if (name)
+           *name = cache_pc_function_name;
+         if (address)
+           *address = cache_pc_function_low;
+         return 1;
+       }
+
+      /* Get the information from a combination of the pst
+        (static symbols), and the misc function vector (extern
+        symbols).  */
+      miscfunc = find_pc_misc_function (pc);
+      psb = find_pc_psymbol (pst, pc);
+
+      if (!psb && miscfunc == -1)
+       {
+         goto return_error;
+       }
+      if (psb
+         && (miscfunc == -1
+             || (SYMBOL_VALUE_ADDRESS (psb)
+                 >= misc_function_vector[miscfunc].address)))
+       {
+         /* This case isn't being cached currently. */
+         if (address)
+           *address = SYMBOL_VALUE_ADDRESS (psb);
+         if (name)
+           *name = SYMBOL_NAME (psb);
+         return 1;
+       }
+    }
+  else
+    /* Must be in the misc function stuff.  */
+    {
+      miscfunc = find_pc_misc_function (pc);
+      if (miscfunc == -1)
+       goto return_error;
+    }
+
+  {
+    if (misc_function_vector[miscfunc].type == mf_text)
+      cache_pc_function_low = misc_function_vector[miscfunc].address;
+    else
+      /* It is a transfer table for Sun shared libraries.  */
+      cache_pc_function_low = pc - FUNCTION_START_OFFSET;
+  }
+  cache_pc_function_name = misc_function_vector[miscfunc].name;
+  if (miscfunc < misc_function_count /* && FIXME mf_text again? */ )
+    cache_pc_function_high = misc_function_vector[miscfunc+1].address;
+  else
+    cache_pc_function_high = cache_pc_function_low + 1;
+  if (address)
+    *address = cache_pc_function_low;
+  if (name)
+    *name = cache_pc_function_name;
+  return 1;
+}
+
 /* Find the misc function whose address is the largest
    while being less than PC.  Return its index in misc_function_vector.
    Returns -1 if PC is not in suitable range.  */
@@ -493,9 +681,10 @@ find_pc_misc_function (pc)
   register int lo = 0;
   register int hi = misc_function_count-1;
   register int new;
-  register int distance;
 
   /* Note that the last thing in the vector is always _etext.  */
+  /* Actually, "end", now that non-functions
+     go on the misc_function_vector.  */
 
   /* Above statement is not *always* true - fix for case where there are */
   /* no misc functions at all (ie no symbol table has been read). */
@@ -506,12 +695,16 @@ find_pc_misc_function (pc)
       pc > misc_function_vector[hi].address)
     return -1;
 
+  /* Note that the following search will not return hi if
+     pc == misc_function_vector[hi].address.  If "end" points to the
+     first unused location, this is correct and the above test
+     simply needs to be changed to
+     "pc >= misc_function_vector[hi].address".  */
   do {
     new = (lo + hi) >> 1;
-    distance = misc_function_vector[new].address - pc;
-    if (distance == 0)
+    if (misc_function_vector[new].address == pc)
       return new;              /* an exact match */
-    else if (distance > 0)
+    else if (misc_function_vector[new].address > pc)
       hi = new;
     else
       lo = new;
This page took 0.032711 seconds and 4 git commands to generate.