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

aggas.pas, tgnuassembler.writetree.doalign:

Browse Source 
+ add the case of a label instead of a jump directly in front of the align (happened in "do_open" for StdIO)

git-svn-id: trunk@22889 -
This commit is contained in:
svenbarth 2012-10-31 20:23:41 +00:00
parent c3c7ec8839
commit 17ff90deb9
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aggas.pas
View File

@ -653,8 +653,13 @@ implementation
begin begin
{$ifdef m68k} {$ifdef m68k}
if assigned(lasthp) and if assigned(lasthp) and
(lasthp.typ=ait_instruction) and (
(taicpu(lasthp).opcode<>A_JMP) then (lasthp.typ=ait_instruction) and
(taicpu(lasthp).opcode<>A_JMP)
) or
(
(lasthp.typ=ait_label)
) then
begin begin
if ispowerof2(alignment,i) then if ispowerof2(alignment,i) then
begin begin