frederik
/
oscar64
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More compatibility fixes for -psci

This commit is contained in:
drmortalwombat 2024-02-18 09:31:05 +01:00
parent 264a80d88e
commit f6ab79319f
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
oscar64/Parser.cpp
View File

@ -11060,6 +11060,9 @@ bool Parser::IsIntegerToken(void)
void Parser::ParsePragma(void) void Parser::ParsePragma(void)
{ {
uint64 op = mCompilerOptions;
mCompilerOptions &= ~COPT_PETSCII;
if (mScanner->mToken == TK_IDENT) if (mScanner->mToken == TK_IDENT)
{ {
if (!strcmp(mScanner->mTokenIdent->mString, "message")) if (!strcmp(mScanner->mTokenIdent->mString, "message"))
@ -11887,6 +11890,8 @@ void Parser::ParsePragma(void)
} }
else else
mErrors->Error(mScanner->mLocation, EERR_SYNTAX, "Invalid pragma directive"); mErrors->Error(mScanner->mLocation, EERR_SYNTAX, "Invalid pragma directive");
mCompilerOptions = op;
} }
void Parser::ParseNamespace(void) void Parser::ParseNamespace(void)

1
oscar64/Scanner.cpp
View File

@ -883,7 +883,6 @@ void Scanner::NextPreToken(void)
uint64 op = mCompilerOptions; uint64 op = mCompilerOptions;
mCompilerOptions &= ~COPT_PETSCII; mCompilerOptions &= ~COPT_PETSCII;
NextRawToken();
NextRawToken(); NextRawToken();
if (mToken == TK_INTEGER) if (mToken == TK_INTEGER)