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

* fixed bug which sometimes caused a crash when optimizing blocks of code with

Browse Source 
assembler blocks (didn't notice before because of lack of zero page protection
    under Win9x :( )
This commit is contained in:
Jonas Maebe 1999-10-11 11:11:31 +00:00
parent 7bf3213a01
commit 9a8ecfc76b
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/csopt386.pas
View File

@ -362,7 +362,8 @@ Begin
{ registers that are completely removed from a sequence (= registers in }
{ RegLoadedForRef, have to be changed to their contents from before the }
{ sequence. }
Begin
If RegCounter in RegInfo.RegsLoadedForRef Then
Begin
{load Cnt2 with the total number of instructions of this sequence}
Cnt2 := PPaiProp(hp4^.OptInfo)^.
Regs[RegInfo.New2OldReg[RegCounter]].NrOfMods;
@ -413,7 +414,7 @@ Begin
hp5 := new(pai_asm_comment,init(strpnew('stopping here...')));
InsertLLItem(AsmL, hp3, pai(hp3^.next), hp5);
{$endif csdebug}
End;
End;
End;
hp3 := New(Pai_Marker,Init(NoPropInfoEnd));
InsertLLItem(AsmL, Pai(hp2^.Previous), hp2, hp3);
@ -529,7 +530,12 @@ End.
{
$Log$
Revision 1.27 1999-10-01 13:51:40 jonas
Revision 1.28 1999-10-11 11:11:31 jonas
* fixed bug which sometimes caused a crash when optimizing blocks of code with
assembler blocks (didn't notice before because of lack of zero page protection
under Win9x :( )
Revision 1.27 1999/10/01 13:51:40 jonas
* CSE now updates the RegAlloc's
Revision 1.26 1999/09/30 14:43:13 jonas