@bmk Pragma broken since 0.139

[Scaremonger]

Bug Report

Consider the following code that includes simple Pragmas: `SuperStrict

' @bmk echo ' @bmk echo ******************************* ?Debug ' @bmk echo **** DEBUG MODE ?Not Debug ' @bmk echo **** RELEASE MODE ? ' @bmk echo *******************************

Print "Hello World"`

Expected Behavior

In version 0.138 this would print "DEBUG MODE" or "RELEASE MODE" during compilation, but since 0.139 this no longer works.

Actual Behavior

Compile Error: Expecting expression but encountered '' @bmk echo

[/home/si/dev/Blitzmax-Language-Server/bls-test.bmx;3;0]
Build Error: failed to compile (65280) /home/si/dev/Blitzmax-Language-Server/bls-test.bmx
Process complete

Environment

• Operating System: Linux x64
• Output of bcc -v: I have tried versions 0.136 (working), 0.138 (working/official), 0.139 (broken), 0.140 (broken), 0.142 (broken) and 0.143 (latest/broken)
• Optional additional info, download, project links, etc

Investigation

In file parser.bmx within method TParser.ParseMain(): Existing Code in 0.143

		'Parse header - imports etc.
		While _toke
			SetErr
			Select _toke.ToLower()
...
			Case "moduleinfo"
				NextToke
				Local info:String = ParseStringLit()
				_module.modInfo.AddLast(info)
			Default
				Exit
			End Select

			If _tokeType = TOKE_PRAGMA Then
				ParsePragmaStmt()
				NextToke
			End If
		Wend

The Default at the end of the select..case, exits before it gets to the PRAGMA parser. I fixed it by moving the pragma parser into the default like this: Potential fix

		'Parse header - imports etc.
		While _toke
			SetErr
			Select _toke.ToLower()
...
			Case "moduleinfo"
				NextToke
				Local info:String = ParseStringLit()
				_module.modInfo.AddLast(info)
			Default
				If _tokeType = TOKE_PRAGMA Then
					ParsePragmaStmt()
					NextToke
				Else
					Exit
				End If
			End Select
		Wend