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

* there can be a tai_stab between lock/rep and the next opcode

Browse Source 
git-svn-id: trunk@8716 -
This commit is contained in:
peter 2007-10-01 19:23:49 +00:00
parent 9f0ca44c94
commit 1e28adac60
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/agx86int.pas
View File

@ -703,8 +703,12 @@ implementation
(taicpu(hp).opcode = A_REPNE)) then (taicpu(hp).opcode = A_REPNE)) then
Begin Begin
prefix:=std_op2str[taicpu(hp).opcode]+#9; prefix:=std_op2str[taicpu(hp).opcode]+#9;
hp:=tai(hp.next); { there can be a stab inbetween when the opcode was on
{ this is theorically impossible... } a different line in the source code }
repeat
hp:=tai(hp.next);
until (hp=nil) or (hp.typ=ait_instruction);
{ this is theorically impossible... }
if hp=nil then if hp=nil then
begin begin
AsmWriteLn(#9#9+prefix); AsmWriteLn(#9#9+prefix);