[Bug 53644] vbscript can not compile classes with lists of private / public / dim declarations

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=53644

--- Comment #3 from Jason Millard  ---
Thanks for looking into this!

I tried that patch, and while it made it through the declarations, it then
failed on a "Public Property let Object(aInput).."

report_script_error shows the p pointer at "let ObjecT"

Note, the same code did compile, when I manually separated all the
declarations.

So maybe that was what the FIXME was about?

Class FlipperPolarity
        Public DebugOn, Enabled
        Private FlipAt  'Timer variable (IE 'flip at 723,530ms...)
        Public TimeDelay        'delay before trigger turns off and polarity is
disabled TODO set time!
        private Flipper, FlipperStart,FlipperEnd, FlipperEndY, LR,
PartialFlipCoef
        Private Balls(20), balldata(20)

dim PolarityIn, PolarityOut
        dim VelocityIn, VelocityOut
        dim YcoefIn, YcoefOut
        Public Sub Class_Initialize
                redim PolarityIn(0) : redim PolarityOut(0) : redim
VelocityIn(0) : redim VelocityOut(0) : redim YcoefIn(0) : redim YcoefOut(0)
                Enabled = True : TimeDelay = 50 : LR = 1:  dim x : for x = 0 to
uBound(balls) : balls(x) = Empty : set Balldata(x) = new SpoofBall : next
        End Sub

Public Property let Object(aInput) : Set Flipper = aInput : StartPoint
= Flipper.x : End Property
.
.
.
End Class