paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 11:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* short jmp with alignment problems fixed

Browse Source
This commit is contained in:
peter 1999-09-26 21:13:40 +00:00
parent aa5751acbc
commit dc7dcdd2a6
1 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/ag386bin.pas
View File

@ -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 { always use the maximum fillsize in this pass to avoid possible
begin short jumps to become out of range }
pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype- pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype;
(objectalloc^.sectionsize mod pai_align(hp)^.aligntype);
objectalloc^.sectionalloc(pai_align(hp)^.fillsize); objectalloc^.sectionalloc(pai_align(hp)^.fillsize);
end
else
pai_align(hp)^.fillsize:=0;
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 { always use the maximum fillsize in this pass to avoid possible
begin short jumps to become out of range }
pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype- pai_align(hp)^.fillsize:=pai_align(hp)^.aligntype;
(objectalloc^.sectionsize mod pai_align(hp)^.aligntype);
objectalloc^.sectionalloc(pai_align(hp)^.fillsize); objectalloc^.sectionalloc(pai_align(hp)^.fillsize);
end
else
pai_align(hp)^.fillsize:=0;
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