From 12ef4a944ac5df2e2c0aa221a365d60e797b76fe Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 18 Aug 2002 18:16:55 +0000
Subject: [PATCH] * fixed compilation error
---
compiler/aoptobj.pas | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index 3bddd3bd73..e840af5138 100644
--- a/compiler/aoptobj.pas
+++ b/compiler/aoptobj.pas
@@ -360,7 +360,7 @@ Begin
Begin
If IsLoadMemReg(p) Then
With PInstr(p)^.oper[LoadSrc].ref^ Do
- If (Base = ProcInfo^.FramePointer)
+ If (Base = ProcInfo.FramePointer)
{$ifdef RefsHaveIndexReg}
And (Index = R_NO)
{$endif RefsHaveIndexReg} Then
@@ -434,7 +434,7 @@ Var RefsEq: TRefCompare;
Counter: TRegister;
Begin
WhichReg := RegMaxSize(WhichReg);
- If (Ref.base = procinfo^.FramePointer) or
+ If (Ref.base = procinfo.FramePointer) or
Assigned(Ref.Symbol) Then
Begin
If
@@ -497,7 +497,7 @@ Begin
{don't destroy if reg contains a parameter, local or global variable}
Not((NrOfMods = 1) And
(PInstr(StartMod)^.oper[0].typ = top_ref) And
- ((PInstr(StartMod)^.oper[0].ref^.base = ProcInfo^.FramePointer) Or
+ ((PInstr(StartMod)^.oper[0].ref^.base = ProcInfo.FramePointer) Or
Assigned(PInstr(StartMod)^.oper[0].ref^.Symbol)
)
)
@@ -788,7 +788,10 @@ End.
{
$Log$
- Revision 1.6 2002-07-07 09:52:32 florian
+ Revision 1.7 2002-08-18 18:16:55 florian
+ * fixed compilation error
+
+ Revision 1.6 2002/07/07 09:52:32 florian
* powerpc target fixed, very simple units can be compiled
* some basic stuff for better callparanode handling, far from being finished