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

* fixed compilation for PowerPC

Browse Source
This commit is contained in:
olle 2004-12-28 02:25:43 +00:00
parent 5aa1ac7420
commit 3f7fdcb45e
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/agppcgas.pas
View File

@ -93,8 +93,8 @@ unit agppcgas;
); );
refaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l'); refaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l','');
refaddr2str_darwin: array[trefaddr] of string[4] = ('','','ha16','lo16'); refaddr2str_darwin: array[trefaddr] of string[4] = ('','','ha16','lo16','');
function getreferencestring(var ref : treference) : string; function getreferencestring(var ref : treference) : string;
@ -365,7 +365,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.45 2004-10-31 21:45:03 peter Revision 1.46 2004-12-28 02:25:44 olle
* fixed compilation for PowerPC
Revision 1.45 2004/10/31 21:45:03 peter
* generic tlocation * generic tlocation
* move tlocation to cgutils * move tlocation to cgutils

7
compiler/powerpc/cpubase.pas
View File

@ -243,7 +243,7 @@ uses
*****************************************************************************} *****************************************************************************}
const const
symaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l'); symaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l','');
const const
{ MacOS only. Whether the direct data area (TOC) directly contain { MacOS only. Whether the direct data area (TOC) directly contain
@ -558,7 +558,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.92 2004-10-31 21:45:03 peter Revision 1.93 2004-12-28 02:25:43 olle
* fixed compilation for PowerPC
Revision 1.92 2004/10/31 21:45:03 peter
* generic tlocation * generic tlocation
* move tlocation to cgutils * move tlocation to cgutils