* Fixed Support for absolute. Stored absolute location

git-svn-id: trunk@6030 -

fcl/passrc/pastree.pp

@@ -313,6 +313,7 @@ type
     VarType: TPasType;
     Value: string;
     Modifiers : string;
+    AbsoluteLocation : String;
   end;
 
   TPasConst = class(TPasVariable)

fcl/passrc/pparser.pp

@@ -1200,8 +1200,18 @@ begin
   NextToken;
   if CurToken = tkAbsolute then
   begin
-    // !!!: Store this information
     ExpectIdentifier;
+    S:=CurTokenText;
+    NextToken;
+    if CurToken=tkDot then
+      begin
+      ExpectIdentifier;
+      S:=S+'.'+CurTokenText;
+      end
+    else
+      UnGetToken;
+    For I:=0 to List.Count-1 do
+      TPasVariable(List[i]).AbsoluteLocation:=S;
   end else
     UngetToken;