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: [email protected] ReportedBy: [email protected] QAContact: [email protected] 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. _______________________________________________ mono-bugs maillist - [email protected] http://lists.ximian.com/mailman/listinfo/mono-bugs
