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

* made target macos really work again after the dwarf merge

Browse Source
This commit is contained in:
olle 2004-07-26 22:26:39 +00:00
parent c70b07e9f3
commit 07e8c04224
1 changed files with 120 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
compiler/powerpc/agppcmpw.pas
View File

@ -872,10 +872,33 @@ var
{TODO: ? PadTabs(s,#0) } {TODO: ? PadTabs(s,#0) }
end; end;
end; end;
ait_const_128bit:
begin
internalerror(200404291);
end;
ait_const_64bit:
begin
if assigned(tai_const(hp).sym) then
internalerror(200404292);
AsmWrite(ait_const2str[ait_const_32bit]);
if target_info.endian = endian_little then
begin
AsmWrite(tostr(longint(lo(tai_const(hp).value))));
AsmWrite(',');
AsmWrite(tostr(longint(hi(tai_const(hp).value))));
end
else
begin
AsmWrite(tostr(longint(hi(tai_const(hp).value))));
AsmWrite(',');
AsmWrite(tostr(longint(lo(tai_const(hp).value))));
end;
AsmLn;
end;
ait_const_uleb128bit, ait_const_uleb128bit,
ait_const_sleb128bit, ait_const_sleb128bit,
ait_const_128bit,
ait_const_64bit,
ait_const_32bit, ait_const_32bit,
ait_const_16bit, ait_const_16bit,
ait_const_8bit, ait_const_8bit,
@ -888,23 +911,68 @@ var
repeat repeat
if assigned(tai_const(hp).sym) then if assigned(tai_const(hp).sym) then
begin begin
if use_PR then
AsmWrite('.');
if assigned(tai_const(hp).endsym) then if assigned(tai_const(hp).endsym) then
s:=tai_const(hp).endsym.name+'-'+tai_const(hp).sym.name begin
if (tai_const(hp).endsym.typ = AT_FUNCTION) and use_PR then
AsmWrite('.');
s:=tai_const(hp).endsym.name;
ReplaceForbiddenChars(s);
AsmWrite(s);
inc(l,length(s));
if tai_const(hp).endsym.typ = AT_FUNCTION then
begin
if use_PR then
AsmWrite('[PR]')
else else
AsmWrite('[DS]');
end
else if not macos_direct_globals then
AsmWrite(const_storage_class);
AsmWrite('-');
inc(l,5); {Approx 5 extra, no need to be exactly}
end;
if (tai_const(hp).sym.typ = AT_FUNCTION) and use_PR then
AsmWrite('.');
s:= tai_const(hp).sym.name; s:= tai_const(hp).sym.name;
ReplaceForbiddenChars(s); ReplaceForbiddenChars(s);
if tai_const(hp).value<>0 then AsmWrite(s);
InternalError(2002110101); inc(l,length(s));
if tai_const(hp).sym.typ = AT_FUNCTION then
begin
if use_PR then if use_PR then
AsmWriteLn('[PR]') AsmWrite('[PR]')
else else
AsmWriteLn('[DS]'); AsmWrite('[DS]');
end
else if not macos_direct_globals then
AsmWrite(const_storage_class);
inc(l,5); {Approx 5 extra, no need to be exactly}
if tai_const(hp).value > 0 then
s:= '+'+tostr(tai_const(hp).value)
else if tai_const(hp).value < 0 then
s:= '-'+tostr(tai_const(hp).value)
else
s:= '';
if s<>'' then
begin
AsmWrite(s);
inc(l,length(s));
end;
end end
else else
begin
s:= tostr(tai_const(hp).value); s:= tostr(tai_const(hp).value);
AsmWrite(s); AsmWrite(s);
inc(l,length(s));
end;
if (l>line_length) or if (l>line_length) or
(hp.next=nil) or (hp.next=nil) or
(tai(hp.next).typ<>consttyp) then (tai(hp.next).typ<>consttyp) then
@ -1343,7 +1411,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.36 2004-06-20 08:55:31 florian Revision 1.37 2004-07-26 22:26:39 olle
* made target macos really work again after the dwarf merge
Revision 1.36 2004/06/20 08:55:31 florian
* logs truncated * logs truncated
Revision 1.35 2004/06/17 16:55:46 peter Revision 1.35 2004/06/17 16:55:46 peter