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

fix pragma strings with petscii

This commit is contained in:
drmortalwombat 2024-02-18 17:57:27 +01:00
parent 6b98a44fc0
commit 3900e1cf92
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
oscar64/Parser.cpp
View File

@ -11060,8 +11060,8 @@ bool Parser::IsIntegerToken(void)
void Parser::ParsePragma(void) void Parser::ParsePragma(void)
{ {
uint64 op = mCompilerOptions; uint64 op = mScanner->mCompilerOptions;
mCompilerOptions &= ~COPT_PETSCII; mScanner->mCompilerOptions &= ~COPT_PETSCII;
if (mScanner->mToken == TK_IDENT) if (mScanner->mToken == TK_IDENT)
{ {
@ -11891,7 +11891,7 @@ 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; mScanner->mCompilerOptions = op;
} }
void Parser::ParseNamespace(void) void Parser::ParseNamespace(void)