Some more debuginfo implementation

git-svn-id: svn://svn.cc65.org/cc65/trunk@626 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/src/ca65/dbginfo.c b/src/ca65/dbginfo.c
index 90b25c21843d9eab0d67782b2a4d847cb0c4ce20..b921f7af8ecb4928c7ab3e9078801e2757fbad96 100644 (file)
--- a/src/ca65/dbginfo.c
+++ b/src/ca65/dbginfo.c
@@ -86,7 +86,33 @@ void DbgInfoFile (void)
 void DbgInfoLine (void)
 /* Parse and handle LINE subcommand of the .dbg pseudo instruction */
 {
-    ErrorSkip (ERR_NOT_IMPLEMENTED);
+    unsigned Index;
+    long LineNum;
+
+    /* The name of the file follows */
+    if (Tok != TOK_STRCON) {
+       ErrorSkip (ERR_STRCON_EXPECTED);
+       return;
+    }
+
+    /* Get the index in the file table for the name */
+    Index = GetFileIndex (SVal);
+
+    /* Skip the name */
+    NextTok ();
+
+    /* Comma expected */
+    ConsumeComma ();
+
+    /* Line number */
+    LineNum = ConstExpression ();
+    if (LineNum < 0) {
+       ErrorSkip (ERR_RANGE);
+       return;
+    }
+
+    /* ## Remember the line info */
+
 }
 
 

diff --git a/src/ca65/filetab.h b/src/ca65/filetab.h
index aa331f8743636353027adf619b9aa127f089e8ef..22f2554bf2b34335b1bd17cd1622c7df26fb3f04 100644 (file)
--- a/src/ca65/filetab.h
+++ b/src/ca65/filetab.h
@@ -47,6 +47,9 @@
 const char* GetFileName (unsigned Name);
 /* Get the name of a file where the name index is known */
 
+unsigned GetFileIndex (const char* Name);
+/* Return the file index for the given file name. */
+
 unsigned AddFile (const char* Name, unsigned long Size, unsigned long MTime);
 /* Add a new file to the list of input files. Return the index of the file in
  * the table.