compiler/purify/src/posinfo.c

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