From e7e53580ead53314e36f159699ef2c8a72fa78c4 Mon Sep 17 00:00:00 2001
From: drmortalwombat <90205530+drmortalwombat@users.noreply.github.com>
Date: Tue, 17 Sep 2024 20:30:41 +0200
Subject: [PATCH] Add ul / lu suffix for numbers

---
 oscar64/Scanner.cpp | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/oscar64/Scanner.cpp b/oscar64/Scanner.cpp
index e94ea57..86422d9 100644
--- a/oscar64/Scanner.cpp
+++ b/oscar64/Scanner.cpp
@@ -2336,7 +2336,13 @@ void Scanner::ParseNumberToken(void)
 			if (mTokenChar == 'L' || mTokenChar == 'l')
 			{
 				NextChar();
-				mToken = TK_INTEGERL;
+				if (mTokenChar == 'U' || mTokenChar == 'u')
+				{
+					NextChar();
+					mToken = TK_INTEGERUL;
+				}
+				else
+					mToken = TK_INTEGERL;
 			}
 			else if (mant < 65536)
 			{
@@ -2381,7 +2387,13 @@ void Scanner::ParseNumberToken(void)
 			if (mTokenChar == 'L' || mTokenChar == 'l')
 			{
 				NextChar();
-				mToken = TK_INTEGERL;
+				if (mTokenChar == 'U' || mTokenChar == 'u')
+				{
+					NextChar();
+					mToken = TK_INTEGERUL;
+				}
+				else
+					mToken = TK_INTEGERL;
 			}
 			else if (mant < 32768)
 				mToken = TK_INTEGER;
@@ -2438,7 +2450,13 @@ void Scanner::ParseNumberToken(void)
 				if (mTokenChar == 'L' || mTokenChar == 'l')
 				{
 					NextChar();
-					mToken = TK_INTEGERL;
+					if (mTokenChar == 'U' || mTokenChar == 'u')
+					{
+						NextChar();
+						mToken = TK_INTEGERUL;
+					}
+					else
+						mToken = TK_INTEGERL;
 				}
 				else if (mant < 32768)
 					mToken = TK_INTEGER;