paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation error

Browse Source
This commit is contained in:
florian 2002-08-18 18:16:55 +00:00
parent 00238998f3
commit 12ef4a944a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aoptobj.pas
View File

@ -360,7 +360,7 @@ Begin
Begin Begin
If IsLoadMemReg(p) Then If IsLoadMemReg(p) Then
With PInstr(p)^.oper[LoadSrc].ref^ Do With PInstr(p)^.oper[LoadSrc].ref^ Do
If (Base = ProcInfo^.FramePointer) If (Base = ProcInfo.FramePointer)
{$ifdef RefsHaveIndexReg} {$ifdef RefsHaveIndexReg}
And (Index = R_NO) And (Index = R_NO)
{$endif RefsHaveIndexReg} Then {$endif RefsHaveIndexReg} Then
@ -434,7 +434,7 @@ Var RefsEq: TRefCompare;
Counter: TRegister; Counter: TRegister;
Begin Begin
WhichReg := RegMaxSize(WhichReg); WhichReg := RegMaxSize(WhichReg);
If (Ref.base = procinfo^.FramePointer) or If (Ref.base = procinfo.FramePointer) or
Assigned(Ref.Symbol) Then Assigned(Ref.Symbol) Then
Begin Begin
If If
@ -497,7 +497,7 @@ Begin
{don't destroy if reg contains a parameter, local or global variable} {don't destroy if reg contains a parameter, local or global variable}
Not((NrOfMods = 1) And Not((NrOfMods = 1) And
(PInstr(StartMod)^.oper[0].typ = top_ref) 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) Assigned(PInstr(StartMod)^.oper[0].ref^.Symbol)
) )
) )
@ -788,7 +788,10 @@ End.
{ {
$Log$ $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 * powerpc target fixed, very simple units can be compiled
* some basic stuff for better callparanode handling, far from being finished * some basic stuff for better callparanode handling, far from being finished