From 4de65508530f07af6ae33057b6395f462a57d488 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 6 Jun 2003 14:43:29 +0000
Subject: [PATCH]   * absolutesym support

---
 compiler/rautils.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/compiler/rautils.pas b/compiler/rautils.pas
index fe527e4f7d..5e603ff4ba 100644
--- a/compiler/rautils.pas
+++ b/compiler/rautils.pas
@@ -781,6 +781,13 @@ Begin
   asmsearchsym(s,sym,srsymtable);
   if sym = nil then
    exit;
+  if sym.typ=absolutesym then
+    begin
+      if (tabsolutesym(sym).abstyp=tovar) then
+        sym:=tabsolutesym(sym).ref
+      else
+        Message(asmr_e_unsupported_symbol_type);
+    end;
   case sym.typ of
     varsym :
       begin
@@ -1553,7 +1560,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.62  2003-05-30 23:57:08  peter
+  Revision 1.63  2003-06-06 14:43:29  peter
+    * absolutesym support
+
+  Revision 1.62  2003/05/30 23:57:08  peter
     * more sparc cleanup
     * accumulator removed, splitted in function_return_reg (called) and
       function_result_reg (caller)