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-2011, Ullrich von Bassewitz                                      */
  10 /*                Roemerstrasse 52                                           */
  11 /*                70794 Filderstadt                                          */
  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 "objfile.h"
  52 #include "lineinfo.h"
  53
  54
  55
  56 /*****************************************************************************/
  57 /*                                   Data                                    */
  58 /*****************************************************************************/
  59
  60
  61
  62 /* Collection containing all line infos */
  63 Collection LineInfoColl = STATIC_COLLECTION_INITIALIZER;
  64 unsigned  LineInfoValid = 0;              /* Valid, that is, used entries */
  65
  66 /* Static pointer to last line info or NULL if not active */
  67 LineInfo* CurLineInfo   = 0;
  68
  69
  70
  71 /*****************************************************************************/
  72 /*                                   Code                                    */
  73 /*****************************************************************************/
  74
  75
  76
  77 static LineInfo* NewLineInfo (unsigned File, unsigned long Line, unsigned Col)
  78 /* Create and return a new line info. Usage will be zero. */
  79 {
  80     /* Allocate memory */
  81     LineInfo* LI = xmalloc (sizeof (LineInfo));
  82
  83     /* Initialize the fields */
  84     LI->Usage    = 0;
  85     LI->Index    = 0;           /* Currently invalid */
  86     LI->Pos.Line = Line;
  87     LI->Pos.Col  = Col;
  88     LI->Pos.Name = File;
  89
  90     /* Insert this structure into the collection */
  91     CollAppend (&LineInfoColl, LI);
  92
  93     /* Return the new struct */
  94     return LI;
  95 }
  96
  97
  98
  99 LineInfo* UseLineInfo (LineInfo* LI)
 100 /* Increase the reference count of the given line info and return it. The
 101  * function will gracefully accept NULL pointers and do nothing in this case.
 102  */
 103 {
 104     if (LI) {
 105         if (LI->Usage++ == 0) {
 106             /* One more valid line info */
 107             ++LineInfoValid;
 108         }
 109     }
 110     return LI;
 111 }
 112
 113
 114
 115 void GenLineInfo (unsigned FileIndex, unsigned long LineNum, unsigned ColNum)
 116 /* Generate a new line info */
 117 {
 118     /* Create a new line info and make it current */
 119     CurLineInfo = NewLineInfo (FileIndex, LineNum, ColNum);
 120 }
 121
 122
 123
 124 void ClearLineInfo (void)
 125 /* Clear the current line info */
 126 {
 127     CurLineInfo = 0;
 128 }
 129
 130
 131
 132 static int CmpLineInfo (void* Data attribute ((unused)),
 133                         const void* LI1_, const void* LI2_)
 134 /* Compare function for the sort */
 135 {
 136     /* Cast the pointers */
 137     const LineInfo* LI1 = LI1_;
 138     const LineInfo* LI2 = LI2_;
 139
 140     /* Unreferenced line infos are always larger, otherwise sort by file,
 141      * then by line.
 142      */
 143     if ((LI1->Usage == 0) == (LI2->Usage == 0)) {
 144         /* Both are either referenced or unreferenced */
 145         if (LI1->Pos.Name< LI2->Pos.Name) {
 146             return -1;
 147         } else if (LI1->Pos.Name > LI2->Pos.Name) {
 148             return 1;
 149         } else if (LI1->Pos.Line < LI2->Pos.Line) {
 150             return -1;
 151         } else if (LI1->Pos.Line > LI2->Pos.Line) {
 152             return 1;
 153         } else {
 154             return 0;
 155         }
 156     } else {
 157         if (LI1->Usage > 0) {
 158             return -1;
 159         } else {
 160             return 1;
 161         }
 162     }
 163 }
 164
 165
 166
 167 void MakeLineInfoIndex (void)
 168 /* Sort the line infos and drop all unreferenced ones */
 169 {
 170     unsigned I;
 171
 172     /* Sort the collection */
 173     CollSort (&LineInfoColl, CmpLineInfo, 0);
 174
 175     /* Walk over the list and index the line infos. */
 176     for (I = 0; I < LineInfoValid; ++I) {
 177         /* Get a pointer to this line info */
 178         LineInfo* LI = CollAtUnchecked (&LineInfoColl, I);
 179         LI->Index = I;
 180     }
 181 }
 182
 183
 184
 185 void WriteLineInfo (void)
 186 /* Write a list of all line infos to the object file. */
 187 {
 188     /* Tell the object file module that we're about to write line infos */
 189     ObjStartLineInfos ();
 190
 191     /* Check if debug info is requested */
 192     if (DbgSyms) {
 193
 194         unsigned I;
 195
 196         /* Write the line info count to the list */
 197         ObjWriteVar (LineInfoValid);
 198
 199         /* Walk through list and write all line infos that have references.
 200          * Because of the sort, this are exactly the first LineInfoValid
 201          * ones.
 202          */
 203         for (I = 0; I < LineInfoValid; ++I) {
 204             /* Get a pointer to this line info */
 205             LineInfo* LI = CollAtUnchecked (&LineInfoColl, I);
 206             /* Write the source file position */
 207             ObjWritePos (&LI->Pos);
 208         }
 209
 210     } else {
 211
 212         /* No line infos */
 213         ObjWriteVar (0);
 214
 215     }
 216
 217     /* End of line infos */
 218     ObjEndLineInfos ();
 219 }
 220
 221
 222