d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add support for negative constants in external initialisers.

Browse source
This commit is contained in:
David Given 2016-12-31 19:43:03 +00:00
parent a01523a893
commit b1576e2c77
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/b/compiler/b0.c
View file

@ -373,7 +373,15 @@ loop:
return subseq(c,PLUS,INCBEF); return subseq(c,PLUS,INCBEF);
case MINUS: case MINUS:
return subseq(c,MINUS,DECBEF); /* avoid peeking a name, which could overwrite
* an already set bsym. */
if (ctab[peekc = spnextchar()] == DIGIT) {
getnum();
cval = -cval;
return CON;
} else {
return subseq(c,MINUS,DECBEF);
}
case LESS: case LESS:
if (subseq(c,0,1)) if (subseq(c,0,1))