git.sur5r.net Git - cc65/blob - src/ca65/lineinfo.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                lineinfo.c                                 */
   4 /*                                                                           */
   5 /*                      Source file line info structure                      */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 2001      Ullrich von Bassewitz                                       */
  10 /*               Wacholderweg 14                                             */
  11 /*               D-70597 Stuttgart                                           */
  12 /* EMail:        uz@cc65.org                                                 */
  13 /*                                                                           */
  14 /*                                                                           */
  15 /* This software is provided 'as-is', without any expressed or implied       */
  16 /* warranty.  In no event will the authors be held liable for any damages    */
  17 /* arising from the use of this software.                                    */
  18 /*                                                                           */
  19 /* Permission is granted to anyone to use this software for any purpose,     */
  20 /* including commercial applications, and to alter it and redistribute it    */
  21 /* freely, subject to the following restrictions:                            */
  22 /*                                                                           */
  23 /* 1. The origin of this software must not be misrepresented; you must not   */
  24 /*    claim that you wrote the original software. If you use this software   */
  25 /*    in a product, an acknowledgment in the product documentation would be  */
  26 /*    appreciated but is not required.                                       */
  27 /* 2. Altered source versions must be plainly marked as such, and must not   */
  28 /*    be misrepresented as being the original software.                      */
  29 /* 3. This notice may not be removed or altered from any source              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 /* Note: The line infos kept here are additional line infos supplied by the
  37  * ".dbg line" command. The native line infos are always kept in the fragments
  38  * itself (because one fragment always originates from one line). The
  39  * additional line infos (which may not exist if none are supplied in the
  40  * source) may have several fragments attached (as is the case with sources
  41  * generated by the C compiler).
  42  */
  43
  44
  45
  46 /* common */
  47 #include "coll.h"
  48 #include "xmalloc.h"
  49
  50 /* ca65 */
  51 #include "lineinfo.h"
  52
  53
  54
  55 /*****************************************************************************/
  56 /*                                   Data                                    */
  57 /*****************************************************************************/
  58
  59
  60
  61 /* Linked list of all line infos */
  62 LineInfo* LineInfoRoot  = 0;
  63 LineInfo* LineInfoLast  = 0;
  64 unsigned  LineInfoCount = 0;
  65 unsigned  LineInfoValid = 0;              /* Valid, that is, used entries */
  66
  67 /* Static pointer to last line info or NULL if not active */
  68 LineInfo* CurLineInfo   = 0;
  69
  70
  71
  72 /*****************************************************************************/
  73 /*                                   Code                                    */
  74 /*****************************************************************************/
  75
  76
  77
  78 static LineInfo* NewLineInfo (unsigned FileIndex, unsigned long LineNum)
  79 /* Create and return a new line info. Usage will be zero. */
  80 {
  81     /* Allocate memory */
  82     LineInfo* LI = xmalloc (sizeof (LineInfo));
  83
  84     /* Initialize the fields */
  85     LI->Next     = 0;
  86     LI->Usage    = 0;
  87     LI->Index    = 0;           /* Currently invalid */
  88     LI->Pos.Line = LineNum;
  89     LI->Pos.Col  = 0;
  90     LI->Pos.Name = FileIndex;
  91
  92     /* Insert this structure into the line info list */
  93     if (LineInfoLast == 0) {
  94         LineInfoRoot = LI;
  95     } else {
  96         LineInfoLast->Next = LI;
  97     }
  98     LineInfoLast = LI;
  99
 100     /* Count the line infos */
 101     ++LineInfoCount;
 102
 103     /* Return the new struct */
 104     return LI;
 105 }
 106
 107
 108
 109 LineInfo* UseLineInfo (LineInfo* LI)
 110 /* Increase the reference count of the given line info and return it. The
 111  * function will gracefully accept NULL pointers and do nothing in this case.
 112  */
 113 {
 114     if (LI) {
 115         ++LI->Usage;
 116     }
 117     return LI;
 118 }
 119
 120
 121
 122 void GenLineInfo (unsigned FileIndex, unsigned long LineNum)
 123 /* Generate a new line info */
 124 {
 125     /* Create a new line info and make it current */
 126     CurLineInfo = NewLineInfo (FileIndex, LineNum);
 127 }
 128
 129
 130
 131 void MakeLineInfoIndex (void)
 132 /* Walk over the line info list and make an index of all entries ignoring
 133  * those with a usage count of zero.
 134  */
 135 {
 136     LineInfo* LI  = LineInfoRoot;
 137     LineInfoValid = 0;
 138     while (LI) {
 139         if (LI->Usage) {
 140             LI->Index = LineInfoValid++;
 141         }
 142         LI = LI->Next;
 143     }
 144 }
 145
 146
 147