gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-08 07:34:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

FFI: Parse #line NN and #NN.

Browse Source
This commit is contained in:
Mike Pall 2016-01-18 12:34:48 +01:00
parent 39eddd3b96
commit 89982b7849
1 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/lj_cparse.c
View File

@ -1744,6 +1744,16 @@ static void cp_pragma(CPState *cp, BCLine pragmaline)
} }
} }
/* Handle line number. */
static void cp_line(CPState *cp, BCLine hashline)
{
BCLine newline = cp->val.u32;
/* TODO: Handle file name and include it in error messages. */
while (cp->tok != CTOK_EOF && cp->linenumber == hashline)
cp_next(cp);
cp->linenumber = newline;
}
/* Parse multiple C declarations of types or extern identifiers. */ /* Parse multiple C declarations of types or extern identifiers. */
static void cp_decl_multi(CPState *cp) static void cp_decl_multi(CPState *cp)
{ {
@ -1756,12 +1766,23 @@ static void cp_decl_multi(CPState *cp)
continue; continue;
} }
if (cp->tok == '#') { /* Workaround, since we have no preprocessor, yet. */ if (cp->tok == '#') { /* Workaround, since we have no preprocessor, yet. */
BCLine pragmaline = cp->linenumber; BCLine hashline = cp->linenumber;
if (!(cp_next(cp) == CTOK_IDENT && CPToken tok = cp_next(cp);
cp->str->hash == H_(f5e6b4f8,1d509107))) /* pragma */ if (tok == CTOK_INTEGER) {
cp_line(cp, hashline);
continue;
} else if (tok == CTOK_IDENT &&
cp->str->hash == H_(187aab88,fcb60b42)) { /* line */
if (cp_next(cp) != CTOK_INTEGER) cp_err_token(cp, tok);
cp_line(cp, hashline);
continue;
} else if (tok == CTOK_IDENT &&
cp->str->hash == H_(f5e6b4f8,1d509107)) { /* pragma */
cp_pragma(cp, hashline);
continue;
} else {
cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL); cp_errmsg(cp, cp->tok, LJ_ERR_XSYMBOL);
cp_pragma(cp, pragmaline); }
continue;
} }
scl = cp_decl_spec(cp, &decl, CDF_TYPEDEF|CDF_EXTERN|CDF_STATIC); scl = cp_decl_spec(cp, &decl, CDF_TYPEDEF|CDF_EXTERN|CDF_STATIC);
if ((cp->tok == ';' || cp->tok == CTOK_EOF) && if ((cp->tok == ';' || cp->tok == CTOK_EOF) &&