Author: rolf
Date: 2007-05-25 15:09:47 -0400 (Fri, 25 May 2007)
New Revision: 77969
Modified:
trunk/mono-basic/vbnc/vbnc/source/ChangeLog
trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb
trunk/mono-basic/vbnc/vbnc/source/General/CodeFile.vb
trunk/mono-basic/vbnc/vbnc/source/General/Report.vb
Log:
* General/CodeFile.vb: Create the symbol document when needed (during
initalization is too early).
* General/Report.vb: Add a real error message for an assertion failure.
Modified: trunk/mono-basic/vbnc/vbnc/source/ChangeLog
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/ChangeLog 2007-05-25 19:09:47 UTC (rev
77968)
+++ trunk/mono-basic/vbnc/vbnc/source/ChangeLog 2007-05-25 19:09:47 UTC (rev
77969)
@@ -1,3 +1,9 @@
+2007-05-25 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+ * General/CodeFile.vb: Create the symbol document when needed (during
+ initalization is too early).
+ * General/Report.vb: Add a real error message for an assertion failure.
+
2007-05-21 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* Expressions/Conversions/ConversionExpression.vb,
Modified: trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb 2007-05-25
19:09:47 UTC (rev 77968)
+++ trunk/mono-basic/vbnc/vbnc/source/General/AssemblyInfo.vb 2007-05-25
19:09:47 UTC (rev 77969)
@@ -49,4 +49,4 @@
' You can specify all the values or you can default the Build and Revision
Numbers
' by using the '*' as shown below:
-<Assembly: AssemblyVersion("0.0.0.5519")>
+<Assembly: AssemblyVersion("0.0.0.5520")>
Modified: trunk/mono-basic/vbnc/vbnc/source/General/CodeFile.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/General/CodeFile.vb 2007-05-25
19:09:47 UTC (rev 77968)
+++ trunk/mono-basic/vbnc/vbnc/source/General/CodeFile.vb 2007-05-25
19:09:47 UTC (rev 77969)
@@ -118,6 +118,9 @@
ReadOnly Property SymbolDocument() As
System.Diagnostics.SymbolStore.ISymbolDocumentWriter
Get
+ If m_SymbolDocument Is Nothing AndAlso Compiler.SymbolWriter IsNot
Nothing Then
+ m_SymbolDocument =
Compiler.SymbolWriter.DefineDocument(Me.FileName, Nothing, Nothing, Nothing)
+ End If
Return m_SymbolDocument
End Get
End Property
@@ -149,10 +152,6 @@
m_OptionStrict = OptionStrict
m_OptionExplicit = OptionExplicit
m_Imports = [Imports]
-
- If Compiler.SymbolWriter IsNot Nothing Then
- m_SymbolDocument =
Compiler.SymbolWriter.DefineDocument(Me.FileName, Nothing, Nothing, Nothing)
- End If
End Sub
''' <summary>
Modified: trunk/mono-basic/vbnc/vbnc/source/General/Report.vb
===================================================================
--- trunk/mono-basic/vbnc/vbnc/source/General/Report.vb 2007-05-25 19:09:47 UTC
(rev 77968)
+++ trunk/mono-basic/vbnc/vbnc/source/General/Report.vb 2007-05-25 19:09:47 UTC
(rev 77969)
@@ -196,8 +196,8 @@
result = m_Resources.GetObject(ErrorCode.ToString)
If result Is Nothing Then
- Helper.Stop()
- Return ""
+ Console.WriteLine("Could not find the error message corresponding
with the error code: " & ErrorCode.ToString)
+ Return ErrorCode.ToString
Else
Return result.ToString
End If
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
