6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-18 07:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Fixed an error.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3784 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2007-07-03 16:01:51 +00:00
parent 7e44cdbd5f
commit fd7e66f24c
1 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
src/cc65/locals.c
View File

@ -427,6 +427,12 @@ static void ParseOneDecl (const DeclSpec* Spec)
} else if ((SC & SC_AUTO) == SC_AUTO) {
/* Auto variable */
SymData = ParseAutoDecl (&Decl, &SC);
} else if ((SC & SC_EXTERN) == SC_EXTERN) {
/* External identifier - may not get initialized */
if (CurTok.Tok == TOK_ASSIGN) {
Error ("Cannot initialize externals");
}
SymData = 0;
} else if ((SC & SC_STATIC) == SC_STATIC) {
/* Static variable */
SymData = ParseStaticDecl (&Decl, &SC);
@ -451,7 +457,7 @@ static void ParseOneDecl (const DeclSpec* Spec)
AddLocalSym (Decl.Ident, Decl.Type, SC, SymData);
}
void DeclareLocals (void)
/* Declare local variables and types. */
@ -462,38 +468,38 @@ void DeclareLocals (void)
/* Loop until we don't find any more variables */
while (1) {
/* Check variable declarations. We need to distinguish between a
* default int type and the end of variable declarations. So we
* will do the following: If there is no explicit storage class
* specifier *and* no explicit type given, *and* no type qualifiers
/* Check variable declarations. We need to distinguish between a
* default int type and the end of variable declarations. So we
* will do the following: If there is no explicit storage class
* specifier *and* no explicit type given, *and* no type qualifiers
* have been read, it is assumed that we have reached the end of
* declarations.
*/
DeclSpec Spec;
ParseDeclSpec (&Spec, SC_AUTO, T_INT);
*/
DeclSpec Spec;
ParseDeclSpec (&Spec, SC_AUTO, T_INT);
if ((Spec.Flags & DS_DEF_STORAGE) != 0 && /* No storage spec */
(Spec.Flags & DS_DEF_TYPE) != 0 && /* No type given */
GetQualifier (Spec.Type) == T_QUAL_NONE) { /* No type qualifier */
break;
}
break;
}
/* Accept type only declarations */
if (CurTok.Tok == TOK_SEMI) {
/* Type declaration only */
CheckEmptyDecl (&Spec);
NextToken ();
continue;
}
/* Accept type only declarations */
if (CurTok.Tok == TOK_SEMI) {
/* Type declaration only */
CheckEmptyDecl (&Spec);
NextToken ();
continue;
}
/* Parse a comma separated variable list */
while (1) {
/* Parse one declaration */
ParseOneDecl (&Spec);
/* Parse one declaration */
ParseOneDecl (&Spec);
/* Check if there is more */
/* Check if there is more */
if (CurTok.Tok == TOK_COMMA) {
/* More to come */
/* More to come */
NextToken ();
} else {
/* Done */