mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
* write align opcode in text sections in case of gas output, fixes #7440
git-svn-id: trunk@4702 -
This commit is contained in:
parent
aec8c2a466
commit
d15f5871c2
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -7332,6 +7332,7 @@ tests/webtbs/tw7276.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw7372.pp svneol=native#text/plain
|
tests/webtbs/tw7372.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw7379.pp svneol=native#text/plain
|
tests/webtbs/tw7379.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw7425.pp svneol=native#text/plain
|
tests/webtbs/tw7425.pp svneol=native#text/plain
|
||||||
|
tests/webtbs/tw7440.pp svneol=native#text/plain
|
||||||
tests/webtbs/ub1873.pp svneol=native#text/plain
|
tests/webtbs/ub1873.pp svneol=native#text/plain
|
||||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||||
|
@ -233,8 +233,8 @@ implementation
|
|||||||
// if paratargetdbg = dbg_dwarf then
|
// if paratargetdbg = dbg_dwarf then
|
||||||
// result := result + ' --gdwarf-2';
|
// result := result + ' --gdwarf-2';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
function TGNUAssembler.NextSetLabel: string;
|
function TGNUAssembler.NextSetLabel: string;
|
||||||
begin
|
begin
|
||||||
inc(setcount);
|
inc(setcount);
|
||||||
@ -529,7 +529,12 @@ implementation
|
|||||||
begin
|
begin
|
||||||
AsmWrite(#9'.balign '+tostr(tai_align_abstract(hp).aligntype));
|
AsmWrite(#9'.balign '+tostr(tai_align_abstract(hp).aligntype));
|
||||||
if tai_align_abstract(hp).use_op then
|
if tai_align_abstract(hp).use_op then
|
||||||
AsmWrite(','+tostr(tai_align_abstract(hp).fillop))
|
AsmWrite(','+tostr(tai_align_abstract(hp).fillop))
|
||||||
|
{$ifdef x86}
|
||||||
|
{ force NOP as alignment op code }
|
||||||
|
else if CurrSecType=sec_code then
|
||||||
|
AsmWrite(',90');
|
||||||
|
{$endif x86}
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
|
14
tests/webtbs/tw7440.pp
Normal file
14
tests/webtbs/tw7440.pp
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
{ %CPU=i386 %OPT=-S2cgi -OG2 -gl -al }
|
||||||
|
program bugloop;
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
|
||||||
|
var
|
||||||
|
d: array[0..0] of double;
|
||||||
|
i: integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
for i := low(d) to high(d) do
|
||||||
|
d[i] := i;
|
||||||
|
writeln('ok');
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user