]> git.sur5r.net Git - cc65/blob - src/ca65/dbginfo.c
Renamed EXP_INITIALIZER
[cc65] / src / ca65 / dbginfo.c
1 /*****************************************************************************/
2 /*                                                                           */
3 /*                                 dbginfo.c                                 */
4 /*                                                                           */
5 /*                         Handle the .dbg commands                          */
6 /*                                                                           */
7 /*                                                                           */
8 /*                                                                           */
9 /* (C) 2000     Ullrich von Bassewitz                                        */
10 /*              Wacholderweg 14                                              */
11 /*              D-70597 Stuttgart                                            */
12 /* EMail:       uz@musoftware.de                                             */
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 /* ca65 */
37 #include "error.h"
38 #include "expr.h"
39 #include "filetab.h"
40 #include "nexttok.h"
41 #include "dbginfo.h"
42
43
44
45 /*****************************************************************************/
46 /*                                   Code                                    */
47 /*****************************************************************************/
48
49
50
51 void DbgInfoFile (void)
52 /* Parse and handle FILE subcommand of the .dbg pseudo instruction */
53 {
54     char Name [sizeof (SVal)];
55     unsigned long Size;
56     unsigned long MTime;
57
58     /* Name */
59     if (Tok != TOK_STRCON) {
60         ErrorSkip (ERR_STRCON_EXPECTED);
61         return;
62     }
63     strcpy (Name, SVal);
64     NextTok ();
65
66     /* Comma expected */
67     ConsumeComma ();
68
69     /* Size */
70     Size = ConstExpression ();
71
72     /* Comma expected */
73     ConsumeComma ();
74
75     /* MTime */
76     MTime = ConstExpression ();
77
78     /* Insert the file into the table */
79     AddFile (Name, Size, MTime);
80 }
81
82
83
84 void DbgInfoLine (void)
85 /* Parse and handle LINE subcommand of the .dbg pseudo instruction */
86 {
87     ErrorSkip (ERR_NOT_IMPLEMENTED);
88 }
89
90
91
92 void DbgInfoSym (void)
93 /* Parse and handle SYM subcommand of the .dbg pseudo instruction */
94 {
95     ErrorSkip (ERR_NOT_IMPLEMENTED);
96 }
97
98
99