From d12c36ee32a73688364b5f15395677b68df65bdd Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sat, 7 Nov 2009 00:23:04 +0000
Subject: [PATCH]  * add to missing CPUs

git-svn-id: trunk@14090 -
---
 compiler/utils/ppudump.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/utils/ppudump.pp b/compiler/utils/ppudump.pp
index 5a7bbda495..2bfc702e04 100644
--- a/compiler/utils/ppudump.pp
+++ b/compiler/utils/ppudump.pp
@@ -97,7 +97,9 @@ type
         cpu_iA64,                     { 7 }
         cpu_x86_64,                   { 8 }
         cpu_mips,                     { 9 }
-        cpu_arm                       { 10 }
+        cpu_arm,                      { 10 }
+        cpu_powerpc64,                { 11 }
+        cpu_avr                       { 12 }
   );
 
 var
@@ -273,8 +275,9 @@ end;
 
 Function Cpu2Str(w:longint):string;
 const
-  CpuTxt : array[tsystemcpu] of string[8]=
-    ('none','i386','m68k','alpha','powerpc','sparc','vis','ia64','x86_64','mips','arm');
+  CpuTxt : array[tsystemcpu] of string[9]=
+    ('none','i386','m68k','alpha','powerpc','sparc','vis','ia64',
+     'x86_64','mips','arm','powerpc64','avr');
 begin
   if w<=ord(high(tsystemcpu)) then
     Cpu2Str:=CpuTxt[tsystemcpu(w)]