compiler/purify/src/posinfo.c

   1 #include <stdio.h>
   2 #include "posinfo.h"
   3 #include "util.h"
   4 #include "error.h"
   5
   6 int Purify_Lineno;
   7 const char * Purify_Filename;
   8 const char * Purify_Functionname;
   9
  10 CallStackNode  * Purify_CallStack;
  11 CallStackEntry * Purify_CurrentFrame;
  12
  13 static int usedEntries;
  14 static int callLevels;
  15
  16 static void _Purify_MakeRoom (void)
  17 {
  18     if (!Purify_CallStack)
  19     {
  20         Purify_CallStack    = xmalloc (sizeof (CallStackNode));
  21         Purify_CurrentFrame = &Purify_CallStack->entries[0];
  22
  23         Purify_CallStack->next = NULL;
  24
  25         usedEntries = 1;
  26     }
  27     else
  28     {
  29         if (usedEntries == PURIFY_CSNE)
  30         {
  31             CallStackNode * node = xmalloc (sizeof (CallStackNode));
  32
  33             node->next          = Purify_CallStack;
  34             Purify_CallStack    = node;
  35             Purify_CurrentFrame = &Purify_CallStack->entries[0];
  36
  37             usedEntries = 1;
  38         }
  39         else
  40         {
  41             usedEntries ++;
  42             Purify_CurrentFrame ++;
  43         }
  44     }
  45 }
  46
  47 void Purify_EnterFunction (const char * filename, const char * functionname,
  48     int lineno, const void * fp)
  49 {
  50     _Purify_MakeRoom ();
  51
  52     callLevels ++;
  53
  54     SETPOS(&Purify_CurrentFrame->caller);
  55
  56     Purify_Filename     = filename;
  57     Purify_Functionname = functionname;
  58     Purify_Lineno       = lineno;
  59
  60     SETPOS(&Purify_CurrentFrame->called);
  61
  62     Purify_CurrentFrame->fp = fp;
  63
  64 #if 0
  65     printf ("EnterFunction() usedEntries=%d  Purify_CurrentFrame=%p\n",
  66         usedEntries, Purify_CurrentFrame
  67     );
  68     printf ("at " POSINFO_FORMAT " fp=%p\n",
  69         POSINFO_ARG(&Purify_CurrentFrame->called),
  70         fp
  71     );
  72     printf ("called from " POSINFO_FORMAT "\n",
  73         POSINFO_ARG(&Purify_CurrentFrame->caller)
  74     );
  75 #endif
  76 }
  77
  78 void Purify_LeaveFunction (void)
  79 {
  80     Purify_Filename     = Purify_CurrentFrame->caller.filename;
  81     Purify_Functionname = Purify_CurrentFrame->caller.functionname;
  82     Purify_Lineno       = Purify_CurrentFrame->caller.lineno;
  83
  84 #if 0
  85     printf ("LeaveFunction() usedEntries=%d  Purify_CurrentFrame=%p\n",
  86         usedEntries, Purify_CurrentFrame
  87     );
  88     printf ("to " POSINFO_FORMAT "\n",
  89         POSINFO_ARG(&Purify_CurrentFrame->caller)
  90     );
  91 #endif
  92
  93     usedEntries --;
  94     callLevels --;
  95
  96     if (usedEntries > 0)
  97         Purify_CurrentFrame --;
  98     else if (callLevels)
  99     {
 100         CallStackNode * node = Purify_CallStack;
 101
 102         Purify_CallStack = node->next;
 103
 104         xfree (node);
 105
 106         if (Purify_CallStack)
 107         {
 108             usedEntries = PURIFY_CSNE;
 109             Purify_CurrentFrame = &Purify_CallStack->entries[PURIFY_CSNE-1];
 110         }
 111         else
 112         {
 113             usedEntries = 0;
 114             Purify_CurrentFrame = NULL;
 115         }
 116     }
 117 }
 118
 119 void Purify_RememberCallers (RememberData * rd)
 120 {
 121     int n = 0;
 122     int entry = usedEntries;
 123     CallStackEntry * cse;
 124
 125     cse = Purify_CurrentFrame;
 126
 127     SETPOS(&rd->current);
 128
 129     while (n < PURIFY_RememberDepth && n < callLevels)
 130     {
 131         rd->stack[n] = cse->caller;
 132
 133         entry --;
 134         n ++;
 135
 136         if (entry > 0)
 137             cse --;
 138         else
 139         {
 140             if (!Purify_CallStack->next)
 141                 break;
 142
 143             entry = PURIFY_CSNE;
 144             cse = &Purify_CallStack->next->entries[PURIFY_CSNE-1];
 145         }
 146     }
 147
 148     rd->nstack = n;
 149 }
 150
 151 void Purify_PrintCallers (RememberData * rd)
 152 {
 153     int t;
 154
 155     if (rd->nstack == -1)
 156         return;
 157
 158     fprintf (stderr, "at " POSINFO_FORMAT "\n",
 159         POSINFO_ARG(&rd->current)
 160     );
 161
 162     for (t=0; t<rd->nstack; t++)
 163     {
 164         fprintf (stderr, "called by " POSINFO_FORMAT "\n",
 165             POSINFO_ARG(&rd->stack[t])
 166         );
 167     }
 168 }