bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Removed #pragma names that have been obsolete for over a decade.

Browse Source
This commit is contained in:
Kugel Fuhr
2024-09-01 10:22:40 +02:00
parent b688cfa0c0
commit 58b1c21996
1 changed files with 0 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
src/cc65/pragma.c
View File

@@ -68,28 +68,20 @@ typedef enum {
PRAGMA_ALIGN, PRAGMA_ALIGN,
PRAGMA_ALLOW_EAGER_INLINE, PRAGMA_ALLOW_EAGER_INLINE,
PRAGMA_BSS_NAME, PRAGMA_BSS_NAME,
PRAGMA_BSSSEG, /* obsolete */
PRAGMA_CHARMAP, PRAGMA_CHARMAP,
PRAGMA_CHECK_STACK, PRAGMA_CHECK_STACK,
PRAGMA_CHECKSTACK, /* obsolete */
PRAGMA_CODE_NAME, PRAGMA_CODE_NAME,
PRAGMA_CODESEG, /* obsolete */
PRAGMA_CODESIZE, PRAGMA_CODESIZE,
PRAGMA_DATA_NAME, PRAGMA_DATA_NAME,
PRAGMA_DATASEG, /* obsolete */
PRAGMA_INLINE_STDFUNCS, PRAGMA_INLINE_STDFUNCS,
PRAGMA_LOCAL_STRINGS, PRAGMA_LOCAL_STRINGS,
PRAGMA_MESSAGE, PRAGMA_MESSAGE,
PRAGMA_OPTIMIZE, PRAGMA_OPTIMIZE,
PRAGMA_REGISTER_VARS, PRAGMA_REGISTER_VARS,
PRAGMA_REGVARADDR, PRAGMA_REGVARADDR,
PRAGMA_REGVARS, /* obsolete */
PRAGMA_RODATA_NAME, PRAGMA_RODATA_NAME,
PRAGMA_RODATASEG, /* obsolete */
PRAGMA_SIGNED_CHARS, PRAGMA_SIGNED_CHARS,
PRAGMA_SIGNEDCHARS, /* obsolete */
PRAGMA_STATIC_LOCALS, PRAGMA_STATIC_LOCALS,
PRAGMA_STATICLOCALS, /* obsolete */
PRAGMA_WARN, PRAGMA_WARN,
PRAGMA_WRAPPED_CALL, PRAGMA_WRAPPED_CALL,
PRAGMA_WRITABLE_STRINGS, PRAGMA_WRITABLE_STRINGS,
@@ -105,28 +97,20 @@ static const struct Pragma {
{ "align", PRAGMA_ALIGN }, { "align", PRAGMA_ALIGN },
{ "allow-eager-inline", PRAGMA_ALLOW_EAGER_INLINE }, { "allow-eager-inline", PRAGMA_ALLOW_EAGER_INLINE },
{ "bss-name", PRAGMA_BSS_NAME }, { "bss-name", PRAGMA_BSS_NAME },
{ "bssseg", PRAGMA_BSSSEG }, /* obsolete */
{ "charmap", PRAGMA_CHARMAP }, { "charmap", PRAGMA_CHARMAP },
{ "check-stack", PRAGMA_CHECK_STACK }, { "check-stack", PRAGMA_CHECK_STACK },
{ "checkstack", PRAGMA_CHECKSTACK }, /* obsolete */
{ "code-name", PRAGMA_CODE_NAME }, { "code-name", PRAGMA_CODE_NAME },
{ "codeseg", PRAGMA_CODESEG }, /* obsolete */
{ "codesize", PRAGMA_CODESIZE }, { "codesize", PRAGMA_CODESIZE },
{ "data-name", PRAGMA_DATA_NAME }, { "data-name", PRAGMA_DATA_NAME },
{ "dataseg", PRAGMA_DATASEG }, /* obsolete */
{ "inline-stdfuncs", PRAGMA_INLINE_STDFUNCS }, { "inline-stdfuncs", PRAGMA_INLINE_STDFUNCS },
{ "local-strings", PRAGMA_LOCAL_STRINGS }, { "local-strings", PRAGMA_LOCAL_STRINGS },
{ "message", PRAGMA_MESSAGE }, { "message", PRAGMA_MESSAGE },
{ "optimize", PRAGMA_OPTIMIZE }, { "optimize", PRAGMA_OPTIMIZE },
{ "register-vars", PRAGMA_REGISTER_VARS }, { "register-vars", PRAGMA_REGISTER_VARS },
{ "regvaraddr", PRAGMA_REGVARADDR }, { "regvaraddr", PRAGMA_REGVARADDR },
{ "regvars", PRAGMA_REGVARS }, /* obsolete */
{ "rodata-name", PRAGMA_RODATA_NAME }, { "rodata-name", PRAGMA_RODATA_NAME },
{ "rodataseg", PRAGMA_RODATASEG }, /* obsolete */
{ "signed-chars", PRAGMA_SIGNED_CHARS }, { "signed-chars", PRAGMA_SIGNED_CHARS },
{ "signedchars", PRAGMA_SIGNEDCHARS }, /* obsolete */
{ "static-locals", PRAGMA_STATIC_LOCALS }, { "static-locals", PRAGMA_STATIC_LOCALS },
{ "staticlocals", PRAGMA_STATICLOCALS }, /* obsolete */
{ "warn", PRAGMA_WARN }, { "warn", PRAGMA_WARN },
{ "wrapped-call", PRAGMA_WRAPPED_CALL }, { "wrapped-call", PRAGMA_WRAPPED_CALL },
{ "writable-strings", PRAGMA_WRITABLE_STRINGS }, { "writable-strings", PRAGMA_WRITABLE_STRINGS },
@@ -402,22 +386,18 @@ static void ApplySegNamePragma (pragma_t Token, int PushPop, const char* Name, u
switch (Token) { switch (Token) {
case PRAGMA_CODE_NAME: case PRAGMA_CODE_NAME:
case PRAGMA_CODESEG:
Seg = SEG_CODE; Seg = SEG_CODE;
break; break;
case PRAGMA_RODATA_NAME: case PRAGMA_RODATA_NAME:
case PRAGMA_RODATASEG:
Seg = SEG_RODATA; Seg = SEG_RODATA;
break; break;
case PRAGMA_DATA_NAME: case PRAGMA_DATA_NAME:
case PRAGMA_DATASEG:
Seg = SEG_DATA; Seg = SEG_DATA;
break; break;
case PRAGMA_BSS_NAME: case PRAGMA_BSS_NAME:
case PRAGMA_BSSSEG:
Seg = SEG_BSS; Seg = SEG_BSS;
break; break;
@@ -933,9 +913,6 @@ static void ParsePragmaString (void)
FlagPragma (PES_STMT, Pragma, &B, &EagerlyInlineFuncs); FlagPragma (PES_STMT, Pragma, &B, &EagerlyInlineFuncs);
break; break;
case PRAGMA_BSSSEG:
Warning ("#pragma bssseg is obsolete, please use #pragma bss-name instead");
/* FALLTHROUGH */
case PRAGMA_BSS_NAME: case PRAGMA_BSS_NAME:
/* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */ /* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */
SegNamePragma (PES_FUNC, PRAGMA_BSS_NAME, &B); SegNamePragma (PES_FUNC, PRAGMA_BSS_NAME, &B);
@@ -945,17 +922,11 @@ static void ParsePragmaString (void)
CharMapPragma (PES_IMM, &B); CharMapPragma (PES_IMM, &B);
break; break;
case PRAGMA_CHECKSTACK:
Warning ("#pragma checkstack is obsolete, please use #pragma check-stack instead");
/* FALLTHROUGH */
case PRAGMA_CHECK_STACK: case PRAGMA_CHECK_STACK:
/* TODO: PES_SCOPE maybe? */ /* TODO: PES_SCOPE maybe? */
FlagPragma (PES_FUNC, Pragma, &B, &CheckStack); FlagPragma (PES_FUNC, Pragma, &B, &CheckStack);
break; break;
case PRAGMA_CODESEG:
Warning ("#pragma codeseg is obsolete, please use #pragma code-name instead");
/* FALLTHROUGH */
case PRAGMA_CODE_NAME: case PRAGMA_CODE_NAME:
/* PES_FUNC is the only sensible option so far */ /* PES_FUNC is the only sensible option so far */
SegNamePragma (PES_FUNC, PRAGMA_CODE_NAME, &B); SegNamePragma (PES_FUNC, PRAGMA_CODE_NAME, &B);
@@ -966,9 +937,6 @@ static void ParsePragmaString (void)
IntPragma (PES_STMT, Pragma, &B, &CodeSizeFactor, 10, 1000); IntPragma (PES_STMT, Pragma, &B, &CodeSizeFactor, 10, 1000);
break; break;
case PRAGMA_DATASEG:
Warning ("#pragma dataseg is obsolete, please use #pragma data-name instead");
/* FALLTHROUGH */
case PRAGMA_DATA_NAME: case PRAGMA_DATA_NAME:
/* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */ /* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */
SegNamePragma (PES_FUNC, PRAGMA_DATA_NAME, &B); SegNamePragma (PES_FUNC, PRAGMA_DATA_NAME, &B);
@@ -999,33 +967,21 @@ static void ParsePragmaString (void)
FlagPragma (PES_FUNC, Pragma, &B, &AllowRegVarAddr); FlagPragma (PES_FUNC, Pragma, &B, &AllowRegVarAddr);
break; break;
case PRAGMA_REGVARS:
Warning ("#pragma regvars is obsolete, please use #pragma register-vars instead");
/* FALLTHROUGH */
case PRAGMA_REGISTER_VARS: case PRAGMA_REGISTER_VARS:
/* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */ /* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */
FlagPragma (PES_FUNC, Pragma, &B, &EnableRegVars); FlagPragma (PES_FUNC, Pragma, &B, &EnableRegVars);
break; break;
case PRAGMA_RODATASEG:
Warning ("#pragma rodataseg is obsolete, please use #pragma rodata-name instead");
/* FALLTHROUGH */
case PRAGMA_RODATA_NAME: case PRAGMA_RODATA_NAME:
/* TODO: PES_STMT or even PES_EXPR maybe? */ /* TODO: PES_STMT or even PES_EXPR maybe? */
SegNamePragma (PES_FUNC, PRAGMA_RODATA_NAME, &B); SegNamePragma (PES_FUNC, PRAGMA_RODATA_NAME, &B);
break; break;
case PRAGMA_SIGNEDCHARS:
Warning ("#pragma signedchars is obsolete, please use #pragma signed-chars instead");
/* FALLTHROUGH */
case PRAGMA_SIGNED_CHARS: case PRAGMA_SIGNED_CHARS:
/* TODO: PES_STMT or even PES_EXPR maybe? */ /* TODO: PES_STMT or even PES_EXPR maybe? */
FlagPragma (PES_FUNC, Pragma, &B, &SignedChars); FlagPragma (PES_FUNC, Pragma, &B, &SignedChars);
break; break;
case PRAGMA_STATICLOCALS:
Warning ("#pragma staticlocals is obsolete, please use #pragma static-locals instead");
/* FALLTHROUGH */
case PRAGMA_STATIC_LOCALS: case PRAGMA_STATIC_LOCALS:
/* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */ /* TODO: PES_STMT or even PES_EXPR (PES_DECL) maybe? */
FlagPragma (PES_FUNC, Pragma, &B, &StaticLocals); FlagPragma (PES_FUNC, Pragma, &B, &StaticLocals);