empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove SCOPE_PROC. It's a .SCOPE with an owner symbol.

Browse source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5098 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2011-07-31 17:10:33 +00:00
parent 72a13e1a21
commit 97cb025964
4 changed files with 4 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ca65/pseudo.c
View file

@ -817,7 +817,7 @@ static void DoEnd (void)
static void DoEndProc (void)
/* Leave a lexical level */
{
if (GetCurrentSymTabType () != SCOPE_PROC) {
if (CurrentScope->Type != SCOPE_SCOPE || CurrentScope->OwnerSym == 0) {
/* No local scope */
ErrorSkip ("No open .PROC");
} else {
@ -830,7 +830,7 @@ static void DoEndProc (void)
static void DoEndScope (void)
/* Leave a lexical level */
{
if ( GetCurrentSymTabType () != SCOPE_SCOPE) {
if (CurrentScope->Type != SCOPE_SCOPE || CurrentScope->OwnerSym != 0) {
/* No local scope */
ErrorSkip ("No open .SCOPE");
} else {
@ -1539,7 +1539,7 @@ static void DoProc (void)
}
/* Enter a new scope */
SymEnterLevel (&Name, SCOPE_PROC, AddrSize, Sym);
SymEnterLevel (&Name, SCOPE_SCOPE, AddrSize, Sym);
/* Free memory for Name */
SB_Done (&Name);

9
src/ca65/symtab.c
View file

@ -421,15 +421,6 @@ SymEntry* SymFindAny (SymTable* Scope, const StrBuf* Name)
unsigned char GetCurrentSymTabType ()
/* Return the type of the current symbol table */
{
CHECK (CurrentScope != 0);
return CurrentScope->Type;
}
static void SymCheckUndefined (SymEntry* S)
/* Handle an undefined symbol */
{

3
src/ca65/symtab.h
View file

@ -137,9 +137,6 @@ INLINE unsigned char GetSymTabType (const SymTable* S)
# define GetSymTabType(S) ((S)->Type)
#endif
unsigned char GetCurrentSymTabType ();
/* Return the type of the current symbol table */
void SymCheck (void);
/* Run through all symbols and check for anomalies and errors */

3
src/common/scopedefs.h
View file

@ -56,8 +56,7 @@
enum {
SCOPE_GLOBAL, /* Global level */
SCOPE_FILE, /* File level */
SCOPE_PROC, /* .PROC */
SCOPE_SCOPE, /* .SCOPE */
SCOPE_SCOPE, /* .SCOPE/.PROC */
SCOPE_HAS_DATA = SCOPE_SCOPE, /* Last scope that contains data */
SCOPE_STRUCT, /* .STRUCT/.UNION */
SCOPE_ENUM, /* .ENUM */