the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working on .MID

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@130 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2000-06-25 17:48:28 +00:00
parent 0ebf91be52
commit 158714acf9
3 changed files with 64 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/ca65/nexttok.c
View File

@@ -61,7 +61,7 @@ static TokList* CollectTokens (unsigned Start, unsigned Count)
/* Read the token list */
unsigned Current = 0;
unsigned Parens = 0;
while (Parens != 0 && Tok != TOK_RPAREN) {
while (Parens != 0 || Tok != TOK_RPAREN) {
/* Check for end of line or end of input */
if (Tok == TOK_SEP || Tok == TOK_EOF) {
@@ -83,6 +83,7 @@ static TokList* CollectTokens (unsigned Start, unsigned Count)
}
/* Get the next token */
++Current;
NextTok ();
}
@@ -187,7 +188,7 @@ static void FuncMid (void)
/* Count argument */
Count = ConstExpression ();
if (Count > 100) {
if (Count < 0 || Count > 100) {
Error (ERR_RANGE);
Count = 1;
}
@@ -197,9 +198,7 @@ static void FuncMid (void)
List = CollectTokens ((unsigned) Start, (unsigned) Count);
/* Insert it into the scanner feed */
PushTokList (List, ".MID");
}