[svn] r7299: nemerle/trunk/ncc/parsing/MainParser.n

[IT]

Log:
Fixed IsGenerated flag of property's setter & getter.

Author: IT
Date: Sat Jan 20 01:05:52 2007
New Revision: 7299

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

Modified: nemerle/trunk/ncc/parsing/MainParser.n
==============================================================================
--- nemerle/trunk/ncc/parsing/MainParser.n	(original)
+++ nemerle/trunk/ncc/parsing/MainParser.n	Sat Jan 20 01:05:52 2007
@@ -966,7 +966,8 @@
                       def (kind, bd) = parse_accessor_body ([], impl);
                       def name = Splicable.Name (mkname ("get_" + plain_name));
                       def fh = Fun_header (toks.Location + nametok.Location, name, ret_type, parms);
-                      def member = ClassMember.Function (fh.name, method_atts, fh, kind, bd);
+                      def mloc   = nametok.Location + Location_stack.top();
+                      def member = ClassMember.Function (mloc, fh.name, method_atts, fh, kind, bd);
                       member.Env = env;
                       getter = Some (member);
 
@@ -988,7 +989,8 @@
                       def name = Splicable.Name (mkname ("set_" + plain_name));
                       def fh = Fun_header (toks.Location + nametok.Location, 
                                            typarms, name, PExpr.Void (), setter_parms);
-                      def member = ClassMember.Function (fh.name, method_atts, fh, kind, bd);
+                      def mloc   = nametok.Location + Location_stack.top();
+                      def member = ClassMember.Function (mloc, fh.name, method_atts, fh, kind, bd);
                       member.Env = env;
                       setter = Some (member);