]> git.sur5r.net Git - cc65/blob - src/ca65/dbginfo.c
15745b3fdff98af972f6c02953e7c64364113122
[cc65] / src / ca65 / dbginfo.c
1 /*****************************************************************************/
2 /*                                                                           */
3 /*                                 dbginfo.c                                 */
4 /*                                                                           */
5 /*                         Handle the .dbg commands                          */
6 /*                                                                           */
7 /*                                                                           */
8 /*                                                                           */
9 /* (C) 2000-2011, Ullrich von Bassewitz                                      */
10 /*                Roemerstrasse 52                                           */
11 /*                D-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 #include <string.h>
37
38 /* common */
39 #include "strbuf.h"
40
41 /* ca65 */
42 #include "error.h"
43 #include "expr.h"
44 #include "filetab.h"
45 #include "lineinfo.h"
46 #include "nexttok.h"
47 #include "dbginfo.h"
48
49
50
51 /*****************************************************************************/
52 /*                                   Data                                    */
53 /*****************************************************************************/
54
55
56
57 /* The line info slot used */
58 static unsigned LineInfoSlot;
59
60
61
62 /*****************************************************************************/
63 /*                                   Code                                    */
64 /*****************************************************************************/
65
66
67
68 void DbgInfoFile (void)
69 /* Parse and handle FILE subcommand of the .dbg pseudo instruction */
70 {
71     StrBuf Name = STATIC_STRBUF_INITIALIZER;
72     unsigned long Size;
73     unsigned long MTime;
74
75     /* Parameters are separated by a comma */
76     ConsumeComma ();
77
78     /* Name */
79     if (CurTok.Tok != TOK_STRCON) {
80         ErrorSkip ("String constant expected");
81         return;
82     }
83     SB_Copy (&Name, &CurTok.SVal);
84     NextTok ();
85
86     /* Comma expected */
87     ConsumeComma ();
88
89     /* Size */
90     Size = ConstExpression ();
91
92     /* Comma expected */
93     ConsumeComma ();
94
95     /* MTime */
96     MTime = ConstExpression ();
97
98     /* Insert the file into the table */
99     AddFile (&Name, FT_DBGINFO, Size, MTime);
100
101     /* Free memory used for Name */
102     SB_Done (&Name);
103 }
104
105
106
107 void DbgInfoLine (void)
108 /* Parse and handle LINE subcommand of the .dbg pseudo instruction */
109 {
110     unsigned Index;
111     long LineNum;
112
113     /* If a parameters follow, this is actual line info. If no parameters
114      * follow, the last line info is terminated.
115      */
116     if (CurTok.Tok == TOK_SEP) {
117         ClearLineInfo (LineInfoSlot);
118         return;
119     }
120
121     /* Parameters are separated by a comma */
122     ConsumeComma ();
123
124     /* The name of the file follows */
125     if (CurTok.Tok != TOK_STRCON) {
126         ErrorSkip ("String constant expected");
127         return;
128     }
129
130     /* Get the index in the file table for the name */
131     Index = GetFileIndex (&CurTok.SVal);
132
133     /* Skip the name */
134     NextTok ();
135
136     /* Comma expected */
137     ConsumeComma ();
138
139     /* Line number */
140     LineNum = ConstExpression ();
141     if (LineNum < 0) {
142         ErrorSkip ("Line number is out of valid range");
143         return;
144     }
145
146     /* Remember the line info */
147     GenLineInfo (LineInfoSlot, Index, LineNum, 0);
148 }
149
150
151
152 void DbgInfoSym (void)
153 /* Parse and handle SYM subcommand of the .dbg pseudo instruction */
154 {
155     ErrorSkip ("Not implemented");
156 }
157
158
159