paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29: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

31
compiler/ag386bin.pas
View File

@ -369,14 +369,10 @@ unit ag386bin;
case hp^.typ of
ait_align :
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;
ait_datablock :
begin
@ -442,8 +438,6 @@ unit ag386bin;
end;
end;
hp:=pai(hp^.next);
end;
TreePass0:=hp;
end;
@ -471,14 +465,10 @@ unit ag386bin;
case hp^.typ of
ait_align :
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;
ait_datablock :
begin
@ -905,7 +895,10 @@ unit ag386bin;
end.
{
$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)
Revision 1.23 1999/08/10 12:26:21 pierre