Fixed $$ -> $ escaping

git-svn-id: svn://ultimatepp.org/upp/trunk@5653 f0d560ea-af0d-0410-9eb7-867de7ffcac7
This commit is contained in:
cxl 2012-12-19 20:44:50 +00:00
parent ce829d0f37
commit bcf5e66b72

View file

@ -359,8 +359,11 @@ One<Exe> Compiler::Block()
int line = 1;
while(*s) {
if(*s == '$') {
if(s[1] == '$')
s += 2;
if(s[1] == '$') {
blk.AddText(b, s + 1);
p.Set(s + 2, NULL, line);
b = s = p.GetSpacePtr();
}
else {
blk.AddText(b, s);
p.Set(s + 1, NULL, line);