hyung-hwan/hawk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

check for multiple @pragma startup directives at the top-level source

Browse Source
This commit is contained in:
hyung-hwan 2020-01-11 16:01:52 +00:00
parent cf741c1525
commit 3e86ce4ab2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hawk/lib/parse.c
View File

@ -1035,11 +1035,13 @@ static int parse_progunit (hawk_t* awk)
if (awk->sio.inp == &awk->sio.arg) if (awk->sio.inp == &awk->sio.arg)
{ {
/* only the top level source */ /* only the top level source */
if (awk->parse.pragma.startup[0] == '\0') if (awk->parse.pragma.startup[0] != '\0')
{ {
/* honor the first encounter only */ hawk_seterrfmt (awk, &awk->tok.loc, HAWK_EEXIST, HAWK_T("@pragma startup already set"));
hawk_copy_oochars_to_oocstr (awk->parse.pragma.startup, HAWK_COUNTOF(awk->parse.pragma.startup), HAWK_OOECS_PTR(awk->tok.name), HAWK_OOECS_LEN(awk->tok.name)); return -1;
} }
hawk_copy_oochars_to_oocstr (awk->parse.pragma.startup, HAWK_COUNTOF(awk->parse.pragma.startup), HAWK_OOECS_PTR(awk->tok.name), HAWK_OOECS_LEN(awk->tok.name));
} }
} }
else else