mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-25 18:12:37 +02:00
* don't remove align objects between JMP's and labels
This commit is contained in:
parent
0a2e7859d2
commit
9ffa216681
@ -230,7 +230,7 @@ Begin
|
||||
((hp1^.typ <> ait_label) or
|
||||
{ skip unused labels, they're not referenced anywhere }
|
||||
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
|
||||
AsmL^.Remove(hp1);
|
||||
Dispose(hp1, done);
|
||||
@ -1672,7 +1672,10 @@ End.
|
||||
|
||||
{
|
||||
$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
|
||||
got lost in the conversion resulting from the removal of
|
||||
ait_labeled_instruction)
|
||||
|
Loading…
Reference in New Issue
Block a user