6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-05 20:31:53 +00:00
Code Issues Projects Releases Wiki Activity

Syntax change

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2708 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2003-12-03 19:51:07 +00:00
parent c15fd58d3b
commit 788208d7dc
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ca65/struct.c
View File

@ -73,9 +73,8 @@ static long Member (long AllocSize)
{ {
long Multiplicator; long Multiplicator;
/* A comma and a multiplicator may follow */ /* A multiplicator may follow */
if (Tok == TOK_COMMA) { if (Tok != TOK_SEP) {
NextTok ();
Multiplicator = ConstExpression (); Multiplicator = ConstExpression ();
if (Multiplicator <= 0) { if (Multiplicator <= 0) {
Error ("Range error"); Error ("Range error");
@ -163,7 +162,11 @@ static long DoStructInternal (long Offs, unsigned Type)
break; break;
case TOK_RES: case TOK_RES:
Error ("Not implemented"); if (Tok == TOK_SEP) {
Error ("Size is missing");
} else {
MemberSize = Member (1);
}
break; break;
case TOK_TAG: case TOK_TAG:
@ -181,6 +184,7 @@ static long DoStructInternal (long Offs, unsigned Type)
MemberSize = GetSymVal (SizeSym); MemberSize = GetSymVal (SizeSym);
} }
} }
MemberSize *= Member (MemberSize);
break; break;
case TOK_STRUCT: case TOK_STRUCT: