[Mono-bugs] [Bug 661817] New: Error VBNC99997

[bugzilla_noreply at novell.com]

https://bugzilla.novell.com/show_bug.cgi?id=661817

https://bugzilla.novell.com/show_bug.cgi?id=661817#c0


           Summary: Error VBNC99997
    Classification: Mono
           Product: Mono: Compilers
           Version: 2.6.x
          Platform: x86
        OS/Version: Other
            Status: NEW
          Severity: Major
          Priority: P5 - None
         Component: Basic
        AssignedTo: rkvinge at novell.com
        ReportedBy: billhensley at earthlink.net
         QAContact: mono-bugs at lists.ximian.com
          Found By: Community User
           Blocker: No


Description of Problem:
Compiler reported:
Error VBNC99997: You've encountered something in the compiler which is not
implemented. Please file a bug (see instructions here:
http://mono-project.com/Bugs) (VBNC99997)

Steps to reproduce the problem:
1. The error was reported.  I had been looking for a type error (as in Integer,
Date), and had all the Date-related lines commented out.  Eventually I found
the problem, but was getting the "not implemented" report.
2. I re-commented in all of the date type-related code again, and then
uncommented from the top working down until I reached the line of code that
allowed a successful compile.


Actual Results:
99997 error

Expected Results:
Clean compile

How often does this happen? 
Every time.

Additional Information:

I am running MonoDevelop 2.2.2, under Fedora 13.

Here is the code that caused the issue.  

module SpamStats
sub main()
'
'   Linux implementation of the Spam Rejection Stats program.
'
'   This app takes the two data files that have info about rejected spams,
finds the earliest and latest
'    dates of events, then counts the number of events for each date in the
range.  The data is then written
'    into a text file for gnuplot, which produces a line chart.
'
'   Bill Hensley
'   St. John's Episcopal School
'
'   Release History
'
'   29 Dec 10:  Initial Release.  My first VB.Net project, using Mono on Linux.
'
'
'   1000 slots is almost 3 years.
'
Dim dates(1000) As Date
Dim rejects(1000) As Integer
Dim spams(1000) As Integer

dim j as integer
dim linedate as date
dim startpos as integer
dim dateindex as integer
Dim earliest_date As Date
Dim last_date As Date

Dim oFile as System.IO.File
Dim oRead as System.IO.StreamReader

dim input_line as string
dim tempdate as string
dim timeperiod as integer

system.console.writeline("Starting graph build")

'
'   This probably has to be a two-pass, find the earliest date first, then
'    count lines into the date baskets.
'
For j = 1 To 1000
   rejects(j) = 0
   spams(j) = 0
   Next j

'Debug.Print "Through the first loop"

earliest_date = CDate("January 1, 2015")
last_date = CDate("July 9, 1984")

oRead = oFile.OpenText("/home/bhensley/rejected_spam.txt")

j = 1
While oRead.Peek <> -1
   input_line = oRead.ReadLine()
   '
   '   Get the month and day.  Have to default year, why isn't that in the log?
   '
   tempdate = Mid(input_line, 1, 3) + " " + Mid(input_line, 5, 2) + ", 2010"
   linedate = CDate(tempdate)

   If (linedate < earliest_date) Then
      'Debug.Print "We have a new low, line " + Str(j) + ", " +
Format(linedate)
      earliest_date = linedate
      End If

   If (linedate > last_date) Then
      last_date = linedate
      End If

   j = j + 1
   End While

'Debug.Print "Through the second loop, looked at " + Str(j) + " lines."

oRead.Close()

'
'   Now do the same thing for the other file.
'
oRead = oFile.OpenText("/home/bhensley/spamcount.txt")

'Debug.Print "In the third loop"
j = 1
While oRead.Peek <> -1
   input_line = oRead.ReadLine()
   '
   '   Get the month and day.  A little more difficult, this has variable width
fields.
   '    Count from the spaces that delimit each field.
   '
   startpos = InStr(6, input_line, " ") + 6
   tempdate = Mid(input_line, startpos, 6) + ", " + Mid(input_line, startpos +
16, 4)
   linedate = CDate(tempdate)

   If (linedate < earliest_date) Then
      'Debug.Print "We have a new low, line " + Str(j) + ", " +
Format(linedate)
      earliest_date = linedate
      End If

   If (linedate > last_date) Then
      last_date = linedate
      End If

   j = j + 1
   End While

'Debug.Print "Through the third loop, looked at " + Str(j) + " lines."

oRead.Close()

system.console.writeline("Earliest date is " + Format(earliest_date))
system.console.writeline("Last date is " + Format(last_date))

'
'   Now that we know the first date in the range, we need to start loading
buckets of data.
'
'   Start by laying the dates into the array, and the initial values
'
dates(1) = earliest_date
rejects(1) = 0                    '  Rejected connects
spams(1) = 0                      '  SpamAssassin

'timeperiod = last_date - earliest_date
'Debug.Print "Number of days in range is " + Str(timeperiod) + "," + targetcell

For j = 1 To timeperiod
   rejects(j + 1) = 0                    '  Rejected connects
   spams(j + 1) = 0                      '  SpamAssassin
   dates(j + 1) = earliest_date + j
   Next j

'
'   Now get the data from the rejected calls and sort it
'
oRead = oFile.OpenText("/home/bhensley/rejected_spam.txt")

j = 1
While oRead.Peek <> -1
   input_line = oRead.ReadLine()
   '
   '   Get the month and day.  Have to default year, why isn't that in the log?
   '
   tempdate = Mid(input_line, 1, 3) + " " + Mid(input_line, 5, 2) + ", 2010"
'   linedate = CDate(tempdate)

'   dateindex = linedate - earliest_date
'   rejects(dateindex + 1) = rejects(dateindex + 1) + 1

   j = j + 1
   End While

'Debug.Print "Through the rejected connects sorting loop, looked at " + Str(j)
+ " lines."

oRead.Close()

'
'   Now do the same thing for the other file.
'
oRead = oFile.OpenText("/home/bhensley/spamcount.txt")

'Debug.Print "In the third loop"
j = 1
While oRead.Peek <> -1
   input_line = oRead.ReadLine()
   '
   '   Get the month and day.  A little more difficult, this has variable width
fields.
   '    Count from the spaces that delimit each field.
   '
   startpos = InStr(6, input_line, " ") + 6
   tempdate = Mid(input_line, startpos, 6) + ", " + Mid(input_line, startpos +
16, 4)
   linedate = CDate(tempdate)

'
'
'  Line of code below causes error when active, and compile completes
'   successfully when the line is commented out.
'==================================================
   dateindex = linedate - earliest_date
' =================================================
'
'
'   spams(dateindex + 1) = spams(dateindex + 1) + 1

   j = j + 1
   End While

'Debug.Print "Through the last loop, looked at " + Str(j) + " lines."

oRead.Close()

'
'   Add code here to dump the data in a format recognized by gnuplot.
'

system.console.writeline("Ending graph build")

end sub
end module

-- 
Configure bugmail: https://bugzilla.novell.com/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the QA contact for the bug.