From 10f32e68cd7db787d65510e8649370823305151f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 20 Oct 2003 19:29:35 +0000
Subject: [PATCH]   * fix check for register subscription of reference
 parameter

---
 compiler/i386/ra386att.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/i386/ra386att.pas b/compiler/i386/ra386att.pas
index 1342712156..6ece468655 100644
--- a/compiler/i386/ra386att.pas
+++ b/compiler/i386/ra386att.pas
@@ -1159,7 +1159,8 @@ Begin
       Begin
         { Check if there is already a base (mostly ebp,esp) than this is
           not allowed,becuase it will give crashing code }
-        if (opr.ref.base<>NR_NO) then
+        if ((opr.typ=OPR_REFERENCE) and (opr.ref.base<>NR_NO)) or
+           ((opr.typ=OPR_LOCAL) and (opr.localsym.localloc.loc<>LOC_REGISTER)) then
           message(asmr_e_cannot_index_relative_var);
         opr.ref.base:=actasmregister;
         Consume(AS_REGISTER);
@@ -2139,7 +2140,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.51  2003-10-16 21:29:24  peter
+  Revision 1.52  2003-10-20 19:29:35  peter
+    * fix check for register subscription of reference parameter
+
+  Revision 1.51  2003/10/16 21:29:24  peter
     + __HIGH() to retrieve high value
 
   Revision 1.50  2003/10/07 18:21:18  peter