cpp: avoid errenous multiple expansions

[m6w6/ext-psi] / src / parser.re

diff --git a/src/parser.re b/src/parser.re
index e57353662c59fef7bef95e4adffeeba710074900..22be7566fca45835abdbd58c695fee306525a762 100644 (file)
--- a/src/parser.re
+++ b/src/parser.re
@@ -263,6 +263,8 @@ struct psi_plist *psi_parser_scan(struct psi_parser *P, struct psi_parser_input
        bool escaped;
        token_t char_width;
 
+       PSI_DEBUG_PRINT(P, "PSI: scanning %s\n", I->file);
+
        tok = mrk = eol = cur = I->buffer;
        lim = I->buffer + I->length;
        I->lines = 1;