[svn] r7476: nemerle/trunk/ncc/parsing/ParseTree.n

[VladD2]

Log:
Improve fix bug 943. (Ncc (build 7471) builds itself, but it fails to build VS Integration).

Author: VladD2
Date: Sat Feb 24 01:54:17 2007
New Revision: 7476

Modified:
   nemerle/trunk/ncc/parsing/ParseTree.n

Modified: nemerle/trunk/ncc/parsing/ParseTree.n
==============================================================================
--- nemerle/trunk/ncc/parsing/ParseTree.n	(original)
+++ nemerle/trunk/ncc/parsing/ParseTree.n	Sat Feb 24 01:54:17 2007
@@ -673,11 +673,17 @@
     public Location : Location {
       get {
         match (this) {
+          | Expression (null)    | Parameter (null)        | TType (null)
+          | ClassMember (null)   | ParameterBuilder (null) | FieldBuilder (null)
+          | MethodBuilder (null) | PropertyBuilder  (null) | EventBuilder (null)
+          | MatchCase (null)     | Function (null)         | RawToken (null)
+          | TypeBuilder (null)                      => Location.Default;
+
           | Expression       (body : Located)
           | Parameter        (body : Located)
           | TType            (body : Located)
           | ClassMember      (body : Located)
-          | ParameterBuilder (body : Located)       => if (body == null) Location.Default else body.Location;
+          | ParameterBuilder (body : Located)       => body.Location;
           | FieldBuilder     (body : MemberBuilder)
           | MethodBuilder    (body : MemberBuilder)
           | PropertyBuilder  (body : MemberBuilder)