From 3ee2cef1b9eb81184ebf9e6c4c3b3f10da39f9cf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 17 Jan 2007 20:54:37 +0000
Subject: [PATCH] * Fixed Support for absolute. Stored absolute location

git-svn-id: trunk@6030 -
---
 fcl/passrc/pastree.pp |  1 +
 fcl/passrc/pparser.pp | 12 +++++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/fcl/passrc/pastree.pp b/fcl/passrc/pastree.pp
index 6ac691370b..e80d3a2e3b 100644
--- a/fcl/passrc/pastree.pp
+++ b/fcl/passrc/pastree.pp
@@ -313,6 +313,7 @@ type
     VarType: TPasType;
     Value: string;
     Modifiers : string;
+    AbsoluteLocation : String;
   end;
 
   TPasConst = class(TPasVariable)
diff --git a/fcl/passrc/pparser.pp b/fcl/passrc/pparser.pp
index b6eaca880d..e13f2f6f72 100644
--- a/fcl/passrc/pparser.pp
+++ b/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;