1 /*****************************************************************************/
5 /* Handle the .dbg commands */
9 /* (C) 2000-2011, Ullrich von Bassewitz */
10 /* Roemerstrasse 52 */
11 /* D-70794 Filderstadt */
12 /* EMail: uz@cc65.org */
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. */
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: */
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 */
32 /*****************************************************************************/
51 /*****************************************************************************/
53 /*****************************************************************************/
57 /* The current line info */
58 static LineInfo* CurLineInfo = 0;
62 /*****************************************************************************/
64 /*****************************************************************************/
68 void DbgInfoFile (void)
69 /* Parse and handle FILE subcommand of the .dbg pseudo instruction */
71 StrBuf Name = STATIC_STRBUF_INITIALIZER;
75 /* Parameters are separated by a comma */
79 if (CurTok.Tok != TOK_STRCON) {
80 ErrorSkip ("String constant expected");
83 SB_Copy (&Name, &CurTok.SVal);
90 Size = ConstExpression ();
96 MTime = ConstExpression ();
98 /* Insert the file into the table */
99 AddFile (&Name, FT_DBGINFO, Size, MTime);
101 /* Free memory used for Name */
107 void DbgInfoFunc (void)
108 /* Parse and handle func subcommand of the .dbg pseudo instruction */
110 static const char* StorageKeys[] = {
115 StrBuf Name = STATIC_STRBUF_INITIALIZER;
116 StrBuf AsmName = STATIC_STRBUF_INITIALIZER;
120 /* Parameters are separated by a comma */
124 if (CurTok.Tok != TOK_STRCON) {
125 ErrorSkip ("String constant expected");
128 SB_Copy (&Name, &CurTok.SVal);
134 /* The storage class follows */
135 if (CurTok.Tok != TOK_IDENT) {
136 ErrorSkip ("Storage class specifier expected");
139 StorageClass = GetSubKey (StorageKeys, sizeof (StorageKeys)/sizeof (StorageKeys[0]));
140 if (StorageClass < 0) {
141 ErrorSkip ("Storage class specifier expected");
149 /* Assembler name follows */
150 if (CurTok.Tok != TOK_STRCON) {
151 ErrorSkip ("String constant expected");
154 SB_Copy (&AsmName, &CurTok.SVal);
157 /* Free memory used for the strings */
164 void DbgInfoLine (void)
165 /* Parse and handle LINE subcommand of the .dbg pseudo instruction */
168 FilePos Pos = STATIC_FILEPOS_INITIALIZER;
170 /* Any new line info terminates the last one */
172 EndLine (CurLineInfo);
176 /* If a parameters follow, this is actual line info. If no parameters
177 * follow, the last line info is terminated.
179 if (CurTok.Tok == TOK_SEP) {
183 /* Parameters are separated by a comma */
186 /* The name of the file follows */
187 if (CurTok.Tok != TOK_STRCON) {
188 ErrorSkip ("String constant expected");
192 /* Get the index in the file table for the name */
193 Pos.Name = GetFileIndex (&CurTok.SVal);
202 Line = ConstExpression ();
204 ErrorSkip ("Line number is out of valid range");
209 /* Generate a new external line info */
210 CurLineInfo = StartLine (&Pos, LI_TYPE_EXT, 0);
215 void DbgInfoSym (void)
216 /* Parse and handle SYM subcommand of the .dbg pseudo instruction */
218 static const char* StorageKeys[] = {
225 StrBuf Name = STATIC_STRBUF_INITIALIZER;
226 StrBuf AsmName = STATIC_STRBUF_INITIALIZER;
231 /* Parameters are separated by a comma */
235 if (CurTok.Tok != TOK_STRCON) {
236 ErrorSkip ("String constant expected");
239 SB_Copy (&Name, &CurTok.SVal);
245 /* The storage class follows */
246 if (CurTok.Tok != TOK_IDENT) {
247 ErrorSkip ("Storage class specifier expected");
250 StorageClass = GetSubKey (StorageKeys, sizeof (StorageKeys)/sizeof (StorageKeys[0]));
251 if (StorageClass < 0) {
252 ErrorSkip ("Storage class specifier expected");
256 /* Skip the storage class token and the following comma */
260 /* The next tokens depend on the storage class */
261 if (StorageClass == 0) {
262 /* Auto: Stack offset follows */
263 Offs = ConstExpression ();
264 } else if (StorageClass == 2) {
265 /* Register: Register bank offset follows */
266 Offs = ConstExpression ();
268 /* Extern or static: Assembler name follows */
269 if (CurTok.Tok != TOK_STRCON) {
270 ErrorSkip ("String constant expected");
273 SB_Copy (&AsmName, &CurTok.SVal);
277 /* Free memory used for the strings */