paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 03:09:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash when there are two asm blocks right after each other

Browse Source
This commit is contained in:
Jonas Maebe 1998-12-29 19:58:27 +00:00
parent 8cf4da6d5e
commit 64c509adb8
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/aopt386.pas
View File

@ -60,19 +60,22 @@ Begin
PeepHoleOptPass2(AsmL, BlockStart, BlockEnd);
{dispose labeltabel}
ShutDownDFA;
If Assigned(BlockEnd) And
GetNextInstruction(BlockEnd, BlockStart) Then
{we stopped at an assmbler block, so skip it}
{continue where we left off, BlockEnd is either the start of an assembler
block or nil}
BlockStart := BlockEnd;
While Assigned(BlockStart) And
(BlockStart^.typ = ait_Marker) And
(Pai_Marker(BlockStart)^.Kind = AsmBlockStart) Do
Begin
{we stopped at an assembler block, so skip it}
While GetNextInstruction(BlockStart, BlockStart) And
((BlockStart^.Typ <> Ait_Marker) Or
(Pai_Marker(Blockstart)^.Kind <> AsmBlockEnd)) Do;
If GetNextInstruction(BlockStart, BlockStart) Then
BlockEnd := DFAPass1(AsmL, BlockStart)
Else BlockStart := Nil
If GetNextInstruction(BlockStart, BlockStart) And
((BlockStart^.typ <> ait_Marker) Or
(Pai_Marker(BlockStart)^.Kind <> AsmBlockStart)) Then
BlockEnd := DFAPass1(AsmL, BlockStart);
End
Else BlockStart := Nil;
End;
End;
@ -80,7 +83,10 @@ End.
{
$Log$
Revision 1.24 1998-12-29 18:48:23 jonas
Revision 1.25 1998-12-29 19:58:27 jonas
* fixed crash when there are two asm blocks right after each other
Revision 1.24 1998/12/29 18:48:23 jonas
+ optimize pascal code surrounding assembler blocks
Revision 1.23 1998/12/11 00:02:43 peter