From 3900e1cf9225c859c5d5207dd144e0da63419651 Mon Sep 17 00:00:00 2001
From: drmortalwombat <90205530+drmortalwombat@users.noreply.github.com>
Date: Sun, 18 Feb 2024 17:57:27 +0100
Subject: [PATCH] fix pragma strings with petscii

---
 oscar64/Parser.cpp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/oscar64/Parser.cpp b/oscar64/Parser.cpp
index fb300c2..5286388 100644
--- a/oscar64/Parser.cpp
+++ b/oscar64/Parser.cpp
@@ -11060,8 +11060,8 @@ bool Parser::IsIntegerToken(void)
 
 void Parser::ParsePragma(void)
 {
-	uint64 op = mCompilerOptions;
-	mCompilerOptions &= ~COPT_PETSCII;
+	uint64 op = mScanner->mCompilerOptions;
+	mScanner->mCompilerOptions &= ~COPT_PETSCII;
 
 	if (mScanner->mToken == TK_IDENT)
 	{
@@ -11891,7 +11891,7 @@ void Parser::ParsePragma(void)
 	else
 		mErrors->Error(mScanner->mLocation, EERR_SYNTAX, "Invalid pragma directive");
 
-	mCompilerOptions = op;
+	mScanner->mCompilerOptions = op;
 }
 
 void Parser::ParseNamespace(void)