|
@@ -2091,7 +2091,7 @@ TYPE
|
|
|
|
|
|
PROCEDURE SetLabel(label: Label);
|
|
PROCEDURE SetLabel(label: Label);
|
|
BEGIN
|
|
BEGIN
|
|
- Emit(Nop(position));
|
|
|
|
|
|
+ (* basic block start / end *)
|
|
label.Resolve(section.pc);
|
|
label.Resolve(section.pc);
|
|
END SetLabel;
|
|
END SetLabel;
|
|
|
|
|
|
@@ -2106,7 +2106,7 @@ TYPE
|
|
|
|
|
|
PROCEDURE BrL(label: Label);
|
|
PROCEDURE BrL(label: Label);
|
|
BEGIN
|
|
BEGIN
|
|
- Emit(Nop(position));
|
|
|
|
|
|
+ (* basic block start / end *)
|
|
Emit(Br(position,LabelOperand(label)));
|
|
Emit(Br(position,LabelOperand(label)));
|
|
END BrL;
|
|
END BrL;
|
|
|
|
|