/*****************************************************************************/ /* */ /* dbginfo.c */ /* */ /* Handle the .dbg commands */ /* */ /* */ /* */ /* (C) 2000-2001 Ullrich von Bassewitz */ /* Wacholderweg 14 */ /* D-70597 Stuttgart */ /* EMail: uz@cc65.org */ /* */ /* */ /* This software is provided 'as-is', without any expressed or implied */ /* warranty. In no event will the authors be held liable for any damages */ /* arising from the use of this software. */ /* */ /* Permission is granted to anyone to use this software for any purpose, */ /* including commercial applications, and to alter it and redistribute it */ /* freely, subject to the following restrictions: */ /* */ /* 1. The origin of this software must not be misrepresented; you must not */ /* claim that you wrote the original software. If you use this software */ /* in a product, an acknowledgment in the product documentation would be */ /* appreciated but is not required. */ /* 2. Altered source versions must be plainly marked as such, and must not */ /* be misrepresented as being the original software. */ /* 3. This notice may not be removed or altered from any source */ /* distribution. */ /* */ /*****************************************************************************/ #include /* ca65 */ #include "error.h" #include "expr.h" #include "filetab.h" #include "lineinfo.h" #include "nexttok.h" #include "dbginfo.h" /*****************************************************************************/ /* Code */ /*****************************************************************************/ void DbgInfoFile (void) /* Parse and handle FILE subcommand of the .dbg pseudo instruction */ { char Name [sizeof (SVal)]; unsigned long Size; unsigned long MTime; /* Name */ if (Tok != TOK_STRCON) { ErrorSkip (ERR_STRCON_EXPECTED); return; } strcpy (Name, SVal); NextTok (); /* Comma expected */ ConsumeComma (); /* Size */ Size = ConstExpression (); /* Comma expected */ ConsumeComma (); /* MTime */ MTime = ConstExpression (); /* Insert the file into the table */ AddFile (Name, Size, MTime); } void DbgInfoLine (void) /* Parse and handle LINE subcommand of the .dbg pseudo instruction */ { 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 */ GenLineInfo (Index, LineNum); } void DbgInfoSym (void) /* Parse and handle SYM subcommand of the .dbg pseudo instruction */ { ErrorSkip (ERR_NOT_IMPLEMENTED); }