diff --git a/compiler/powerpc/agppcgas.pas b/compiler/powerpc/agppcgas.pas
index 72bed2dc10..2c296e22e5 100644
--- a/compiler/powerpc/agppcgas.pas
+++ b/compiler/powerpc/agppcgas.pas
@@ -93,8 +93,8 @@ unit agppcgas;
           );
 
 
-       refaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l');
-       refaddr2str_darwin: array[trefaddr] of string[4] = ('','','ha16','lo16');
+       refaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l','');
+       refaddr2str_darwin: array[trefaddr] of string[4] = ('','','ha16','lo16','');
 
 
     function getreferencestring(var ref : treference) : string;
@@ -365,7 +365,10 @@ begin
 end.
 {
   $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
     * move tlocation to cgutils
 
diff --git a/compiler/powerpc/cpubase.pas b/compiler/powerpc/cpubase.pas
index 8e83b52635..3639163731 100644
--- a/compiler/powerpc/cpubase.pas
+++ b/compiler/powerpc/cpubase.pas
@@ -243,7 +243,7 @@ uses
 *****************************************************************************}
 
     const
-      symaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l');
+      symaddr2str: array[trefaddr] of string[3] = ('','','@ha','@l','');
 
     const
       { MacOS only. Whether the direct data area (TOC) directly contain
@@ -558,7 +558,10 @@ implementation
 end.
 {
   $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
     * move tlocation to cgutils