[Mono-bugs] [Bug 56482][Maj] New - Properties "End Get" statement cannot be compiled

bugzilla-daemon@bugzilla.ximian.com bugzilla-daemon@bugzilla.ximian.com
Mon, 5 Apr 2004 08:03:39 -0400 (EDT)


Please do not reply to this email- if you want to comment on the bug, go to the
URL shown below and enter your comments there.

Changed by jwezel@compumaster.de.

http://bugzilla.ximian.com/show_bug.cgi?id=56482

--- shadow/56482	2004-04-05 08:03:39.000000000 -0400
+++ shadow/56482.tmp.1396	2004-04-05 08:03:39.000000000 -0400
@@ -0,0 +1,140 @@
+Bug#: 56482
+Product: Mono: Compilers
+Version: unspecified
+OS: Red Hat 9.0
+OS Details: 
+Status: NEW   
+Resolution: 
+Severity: 
+Priority: Major
+Component: Basic
+AssignedTo: mono-bugs@ximian.com                            
+ReportedBy: jwezel@compumaster.de               
+QAContact: mono-bugs@ximian.com
+TargetMilestone: ---
+URL: 
+Cc: 
+Summary: Properties "End Get" statement cannot be compiled
+
+Description of Problem:
+"Error compiling a resource required to service this request. Review your 
+source file and modify it to fix this error."
+
+Steps to reproduce the problem:
+1. simply compile the code below
+
+Actual Results:
+
+Error message: /tmp/88976.vb(47,17) : error BC29999: Line: 47 Col: 17 
+(0,0) : error : 47 Token: 471 (0,0) : 
+error .MonoBASIC.yyParser.yyException: irrecoverable syntax error (0,0) : 
+error failed: 1 Error(s), 0 warnings 
+
+
+Expected Results:
+No compilation error
+
+How often does this happen? 
+always
+
+Additional Information:
+
+' -------------------------------------------------------------------------
+-----
+'  <autogenerated>
+'      This code was generated by a tool.
+'      Mono Runtime Version: 1.1.4322.573
+'
+'      Changes to this file may cause incorrect behavior and will be lost 
+if
+'      the code is regenerated.
+'  </autogenerated>
+' -------------------------------------------------------------------------
+-----
+
+Option Explicit Off
+Option Strict On
+
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Collections
+Imports System.Collections.Specialized
+Imports System.Configuration
+Imports System.Text
+Imports System.Text.RegularExpressions
+Imports System.Web
+Imports System.Web.Caching
+Imports System.Web.Security
+Imports System.Web.SessionState
+Imports System.Web.UI
+Imports System.Web.UI.WebControls
+Imports System.Web.UI.HtmlControls
+
+Namespace ASP
+    Public Class index_aspx
+        Inherits System.Web.UI.Page
+        Implements System.Web.SessionState.IRequiresSessionState
+
+        Private Shared __intialized As Boolean = False
+
+        Private Shared __autoHandlers As Integer
+
+        Public Sub New()
+            If ((ASP.index_aspx.__intialized = False)) Then
+                ASP.index_aspx.__intialized = True
+            End If
+        End Sub
+
+        Protected Overrides Property AutoHandlers As Integer
+            Get
+                Return ASP.index_aspx.__autoHandlers
+            End Get
+        End Property
+
+        Protected NotOverridable Property ApplicationInstance As 
+System.Web.HttpApplication
+            Get
+                Return CType(Me.Context.ApplicationInstance, 
+System.Web.HttpApplication)
+            End Get
+        End Property
+
+        Public Overrides Property TemplateSourceDirectory As String
+            Get
+                Return "/"
+            End Get
+        End Property
+
+        Private NotOverridable Sub __RenderTree(__output As 
+System.Web.UI.HtmlTextWriter, parameterContainer As System.Web.UI.Control)
+            __output.Write(""&Microsoft.VisualBasic.Strings.ChrW(10)
+&"<html>"&Microsoft.VisualBasic.Strings.ChrW(10)
+&"<head><title>Test</title></head>"&Microsoft.VisualBasic.Strings.ChrW(10)
+&"<body>"&Microsoft.VisualBasic.Strings.ChrW(10))
+            __output.Write( "<h1>Hello world</h1>" )
+            __output.Write(""&Microsoft.VisualBasic.Strings.ChrW(10))
+            Response.Write ("This is a running VB website :))")
+
+            __output.Write(""&Microsoft.VisualBasic.Strings.ChrW(10)
+&"<p>End of test.</p>"&Microsoft.VisualBasic.Strings.ChrW(10)
+&"</body>"&Microsoft.VisualBasic.Strings.ChrW(10)
+&"</html>"&Microsoft.VisualBasic.Strings.ChrW(10))
+        End Sub
+
+        Private NotOverridable Sub __BuildControlTree(__ctrl As 
+System.Web.UI.Control)
+            __ctrl.SetRenderMethodDelegate(New System.Web.UI.RenderMethod
+(Me.__RenderTree))
+        End Sub
+
+        Protected Overrides Sub FrameworkInitialize()
+            Me.TraceModeValue = System.Web.TraceMode.SortByTime
+            Me.Request.ValidateInput()
+            Me.__BuildControlTree(Me)
+        End Sub
+
+        Public Overrides Function GetTypeHashCode() As Integer
+            Return 1821841690
+        End Function
+    End Class
+    End Namespace