[svn] r6842: nemerle/trunk/ncc: external/LibrariesLoader.n hierarchy/ClassMembers.n typing/TypedTree.n typ...

[IT]

Log:
Added location for function parameter.

Author: IT
Date: Tue Nov  7 05:45:02 2006
New Revision: 6842

Modified:
   nemerle/trunk/ncc/external/LibrariesLoader.n
   nemerle/trunk/ncc/hierarchy/ClassMembers.n
   nemerle/trunk/ncc/typing/TypedTree.n
   nemerle/trunk/ncc/typing/Typer.n

Modified: nemerle/trunk/ncc/external/LibrariesLoader.n
==============================================================================
--- nemerle/trunk/ncc/external/LibrariesLoader.n	(original)
+++ nemerle/trunk/ncc/external/LibrariesLoader.n	Tue Nov  7 05:45:02 2006
@@ -1862,6 +1862,7 @@
             name = p.Name,
             color = 0,
             ty = ty,
+            ty_loc = Location.Default,
             kind = parmkind,
             modifiers = Modifiers.Empty // FIXME?
           );

Modified: nemerle/trunk/ncc/hierarchy/ClassMembers.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/ClassMembers.n	(original)
+++ nemerle/trunk/ncc/hierarchy/ClassMembers.n	Tue Nov  7 05:45:02 2006
@@ -898,7 +898,8 @@
           | <[ $t ]> => (ParmKind.Normal, bind (t))
         }
       def fp =
-        Fun_parm (loc = p.loc, name = name.Id, color = name.color, ty = ty, 
+        Fun_parm (loc = p.loc, name = name.Id, color = name.color,
+                  ty = ty, ty_loc = p.ty.Location,
                   modifiers = p.modifiers, kind = kind);
 
       fp.GetDefaultValueFromModifiers (par);
@@ -941,6 +942,7 @@
                       color = Manager.MacroColors.Color,
                       kind = ParmKind.Normal,
                       ty = t, 
+                      ty_loc = parm.ty.Location,
                       modifiers = mods)
           };
           def parms = List.Map (types, mkdummyparm);

Modified: nemerle/trunk/ncc/typing/TypedTree.n
==============================================================================
--- nemerle/trunk/ncc/typing/TypedTree.n	(original)
+++ nemerle/trunk/ncc/typing/TypedTree.n	Tue Nov  7 05:45:02 2006
@@ -47,6 +47,7 @@
     public name : string;
     public color : int;
     public mutable ty : TyVar;
+    public mutable ty_loc : Location;
     public kind : ParmKind;
     public modifiers : Modifiers;
     public mutable required_modifiers : list[System.Type] = [];
@@ -57,7 +58,7 @@
     public mutable decl : LocalValue;
     public mutable builder : System.Reflection.Emit.ParameterBuilder;
 
-    public this (loc : Location, name : string, color : int, ty : TyVar, 
+    public this (loc : Location, name : string, color : int, ty : TyVar, ty_loc : Location,
                  modifiers : Modifiers, kind : ParmKind)
     {
       base (loc);
@@ -65,6 +66,7 @@
       this.name = name;
       this.color = color;
       this.ty = ty;
+      this.ty_loc    = ty_loc;
       this.modifiers = modifiers;
       this.kind = kind;
     }

Modified: nemerle/trunk/ncc/typing/Typer.n
==============================================================================
--- nemerle/trunk/ncc/typing/Typer.n	(original)
+++ nemerle/trunk/ncc/typing/Typer.n	Tue Nov  7 05:45:02 2006
@@ -1794,6 +1794,7 @@
                         name = name.Id,
                         color = name.color,
                         ty = current_type.BindType (tenv, p.ty),
+                        ty_loc = p.ty.Location,
                         kind = ParmKind.Normal,
                         modifiers = p.modifiers);
             fp.GetLocalDefaultValueFromModifiers (this);