@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