paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash

Browse Source
This commit is contained in:
peter 1998-11-24 12:50:09 +00:00
parent e0076f57b0
commit d3946024c8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/daopt386.pas
View File

@ -361,7 +361,7 @@ Const AsmInstr: Array[tasmop] Of TAsmInstrucProp = (
{RCL} (Ch: (C_RWOp2, C_ROp1, C_RWFlags)), {RCL} (Ch: (C_RWOp2, C_ROp1, C_RWFlags)),
{RCR} (Ch: (C_RWOp2, C_ROp1, C_RWFlags)), {RCR} (Ch: (C_RWOp2, C_ROp1, C_RWFlags)),
{SAL} (Ch: (C_RWOp2, C_ROp1, C_RWFlags)), {SAL} (Ch: (C_RWOp2, C_ROp1, C_RWFlags)),
{SHLD} (Ch: (C_RWOp3, C_RWFlags, C_ROp2)), {SHLD} (Ch: (C_RWOp3, C_RWFlags, C_ROp1)),
{SHRD} (Ch: (C_RWOp3, C_RWFlags, C_ROp1)), {SHRD} (Ch: (C_RWOp3, C_RWFlags, C_ROp1)),
{LCALL} (Ch: (C_All, C_None, C_None)), {don't know value of any register} {LCALL} (Ch: (C_All, C_None, C_None)), {don't know value of any register}
{LJMP} (Ch: (C_All, C_None, C_None)), {don't know value of any register} {LJMP} (Ch: (C_All, C_None, C_None)), {don't know value of any register}
@ -1521,7 +1521,8 @@ End;
Procedure ReadReg(p: PPaiProp; Reg: TRegister); Procedure ReadReg(p: PPaiProp; Reg: TRegister);
Begin Begin
IncState(p^.Regs[Reg32(Reg)].RState) // if Reg in [R_EAX..R_EDI] then
IncState(p^.Regs[Reg32(Reg)].RState)
End; End;
Procedure ReadRef(p: PPaiProp; Ref: PReference); Procedure ReadRef(p: PPaiProp; Ref: PReference);
@ -2072,7 +2073,10 @@ End.
{ {
$Log$ $Log$
Revision 1.25 1998-11-18 17:58:22 jonas Revision 1.26 1998-11-24 12:50:09 peter
* fixed crash
Revision 1.25 1998/11/18 17:58:22 jonas
+ gathering of register reading data, nowhere used yet (necessary for instruction scheduling) + gathering of register reading data, nowhere used yet (necessary for instruction scheduling)
Revision 1.24 1998/11/13 10:13:44 peter Revision 1.24 1998/11/13 10:13:44 peter