paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small bugfix (memory corruption could occur when certain fpu instructions

Browse Source 
were encountered)
This commit is contained in:
Jonas Maebe 1999-01-20 17:41:26 +00:00
parent b9a674b9fe
commit 653a798afd
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/daopt386.pas
View File

@ -1672,6 +1672,8 @@ End;
Procedure ReadReg(p: PPaiProp; Reg: TRegister); Procedure ReadReg(p: PPaiProp; Reg: TRegister);
Begin Begin
Reg := Reg32(Reg);
If Reg in [R_EAX..R_EDI] Then
IncState(p^.Regs[Reg32(Reg)].RState) IncState(p^.Regs[Reg32(Reg)].RState)
End; End;
@ -2225,7 +2227,11 @@ End.
{ {
$Log$ $Log$
Revision 1.35 1999-01-08 12:39:22 florian Revision 1.36 1999-01-20 17:41:26 jonas
* small bugfix (memory corruption could occur when certain fpu instructions
were encountered)
Revision 1.35 1999/01/08 12:39:22 florian
Changes of Alexander Stohr integrated: Changes of Alexander Stohr integrated:
+ added KNI opcodes + added KNI opcodes
+ added KNI registers + added KNI registers