|
@@ -369,14 +369,10 @@ unit ag386bin;
|
|
|
case hp^.typ of
|
|
case hp^.typ of
|
|
|
ait_align :
|
|
ait_align :
|
|
|
begin
|
|
begin
|
|
|
- if (objectalloc^.sectionsize mod pai_align(hp)^.aligntype)<>0 then
|
|
|
|
|
- begin
|
|
|
|
|
- pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype-
|
|
|
|
|
- (objectalloc^.sectionsize mod pai_align(hp)^.aligntype);
|
|
|
|
|
- objectalloc^.sectionalloc(pai_align(hp)^.fillsize);
|
|
|
|
|
- end
|
|
|
|
|
- else
|
|
|
|
|
- pai_align(hp)^.fillsize:=0;
|
|
|
|
|
|
|
+ { always use the maximum fillsize in this pass to avoid possible
|
|
|
|
|
+ short jumps to become out of range }
|
|
|
|
|
+ pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype;
|
|
|
|
|
+ objectalloc^.sectionalloc(pai_align(hp)^.fillsize);
|
|
|
end;
|
|
end;
|
|
|
ait_datablock :
|
|
ait_datablock :
|
|
|
begin
|
|
begin
|
|
@@ -442,8 +438,6 @@ unit ag386bin;
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
hp:=pai(hp^.next);
|
|
hp:=pai(hp^.next);
|
|
|
-
|
|
|
|
|
-
|
|
|
|
|
end;
|
|
end;
|
|
|
TreePass0:=hp;
|
|
TreePass0:=hp;
|
|
|
end;
|
|
end;
|
|
@@ -471,14 +465,10 @@ unit ag386bin;
|
|
|
case hp^.typ of
|
|
case hp^.typ of
|
|
|
ait_align :
|
|
ait_align :
|
|
|
begin
|
|
begin
|
|
|
- if (objectalloc^.sectionsize mod pai_align(hp)^.aligntype)<>0 then
|
|
|
|
|
- begin
|
|
|
|
|
- pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype-
|
|
|
|
|
- (objectalloc^.sectionsize mod pai_align(hp)^.aligntype);
|
|
|
|
|
- objectalloc^.sectionalloc(pai_align(hp)^.fillsize);
|
|
|
|
|
- end
|
|
|
|
|
- else
|
|
|
|
|
- pai_align(hp)^.fillsize:=0;
|
|
|
|
|
|
|
+ { always use the maximum fillsize in this pass to avoid possible
|
|
|
|
|
+ short jumps to become out of range }
|
|
|
|
|
+ pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype;
|
|
|
|
|
+ objectalloc^.sectionalloc(pai_align(hp)^.fillsize);
|
|
|
end;
|
|
end;
|
|
|
ait_datablock :
|
|
ait_datablock :
|
|
|
begin
|
|
begin
|
|
@@ -905,7 +895,10 @@ unit ag386bin;
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.24 1999-08-25 11:59:33 jonas
|
|
|
|
|
|
|
+ Revision 1.25 1999-09-26 21:13:40 peter
|
|
|
|
|
+ * short jmp with alignment problems fixed
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.24 1999/08/25 11:59:33 jonas
|
|
|
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
|
|
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
|
|
|
|
|
|
|
|
Revision 1.23 1999/08/10 12:26:21 pierre
|
|
Revision 1.23 1999/08/10 12:26:21 pierre
|
peter