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

* don't remove align objects between JMP's and labels

Browse Source
This commit is contained in:
Jonas Maebe 1999-11-13 19:03:56 +00:00
parent 0a2e7859d2
commit 9ffa216681
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/popt386.pas
View File

@ -230,7 +230,7 @@ Begin
((hp1^.typ <> ait_label) or ((hp1^.typ <> ait_label) or
{ skip unused labels, they're not referenced anywhere } { skip unused labels, they're not referenced anywhere }
Not(Pai_Label(hp1)^.l^.is_used)) Do Not(Pai_Label(hp1)^.l^.is_used)) Do
If (hp1^.typ <> ait_label) Then If not(hp1^.typ in [ait_label,ait_align]) Then
Begin Begin
AsmL^.Remove(hp1); AsmL^.Remove(hp1);
Dispose(hp1, done); Dispose(hp1, done);
@ -1672,7 +1672,10 @@ End.
{ {
$Log$ $Log$
Revision 1.68 1999-11-06 16:24:00 jonas Revision 1.69 1999-11-13 19:03:56 jonas
* don't remove align objects between JMP's and labels
Revision 1.68 1999/11/06 16:24:00 jonas
* getfinaldestination works completely again (a lot of functionality * getfinaldestination works completely again (a lot of functionality
got lost in the conversion resulting from the removal of got lost in the conversion resulting from the removal of
ait_labeled_instruction) ait_labeled_instruction)