godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

recognize but ignore #pragma

Browse Source
This commit is contained in:
ceriel 1989-03-31 11:47:12 +00:00
parent f9269a9aca
commit 0379ada7ad
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lang/cem/cemcom/domacro.c
View File

@ -107,6 +107,11 @@ domacro()
case K_UNDEF: /* "undef" */ case K_UNDEF: /* "undef" */
do_undef(); do_undef();
break; break;
case K_PRAGMA: /* "pragma" */
/* ignore for now
*/
SkipRestOfLine();
break;
default: default:
/* invalid word seen after the '#' */ /* invalid word seen after the '#' */
lexerror("%s: unknown control", tk.tk_idf->id_text); lexerror("%s: unknown control", tk.tk_idf->id_text);

1
lang/cem/cemcom/init.c
View File

@ -29,6 +29,7 @@ PRIVATE struct mkey {
{"include", K_INCLUDE}, {"include", K_INCLUDE},
{"line", K_LINE}, {"line", K_LINE},
{"undef", K_UNDEF}, {"undef", K_UNDEF},
{"pragma", K_PRAGMA},
{0, K_UNKNOWN} {0, K_UNKNOWN}
}; };

1
lang/cem/cemcom/macro.str
View File

@ -55,4 +55,5 @@ struct mlist {
#define K_INCLUDE 8 #define K_INCLUDE 8
#define K_LINE 9 #define K_LINE 9
#define K_UNDEF 10 #define K_UNDEF 10
#define K_PRAGMA 11
#endif NOPP #endif NOPP